Separating Data

db_blocos <- db %>% 
  select("rh_age_read_br", "rh_read_b4_yng_br", "rh_read_since_yng_br", "rh_read_b4_old_br", 
    "rh_read_with_b4_old_br", "rh_readin_b4_old_br", "rh_read_since_old_br", 
    "rh_read_w_since_old_br", "rh_readin_since_old_br", "rh_read_time_b4_br",
    "rh_read_time_since_br",
    "hlr_books_b4_corrected", 
    "hlr_dbooks_b4_corrected",
    "hlr_games_b4_corrected",
    "hlr_dgames_b4_corrected",
    "hlr_ad_books_b4_corrected",
    "hlr_ad_dbooks_b4_corrected",
    "hlr_ad_news_b4_corrected",
    "hlr_books_since_corrected",
    "hlr_dbooks_since_corrected",
    "hlr_games_since_corrected",
    "hlr_dgames_since_corrected",
    "hlr_ad_books_since_corrected",
    "hlr_ad_dbooks_since_corrected",
    "hlr_ad_news_since_corrected",
    "ea_read_b4_ALL_br",
    "ea_indr_b4_ALL_br",
    "ea_letter_b4_yng_br",
    "ea_tv_b4_yng_br",
    "ea_boardg_b4_yng_br",
    "ea_vidg_b4_yng_br",
    "ea_edapp_b4_yng_br",
    "ea_read_since_yng_br",
    "ea_indr_since_yng_br",
    "ea_letter_since_yng_br",
    "ea_tv_since_yng_br",
    "ea_boardg_since_yng_br",
    "ea_vidg_since_yng_br",
    "ea_edapp_since_yng_br")

db_out_na <- db_blocos[rowSums(is.na(db_blocos)) < 1, ]

db_bloco_2 <- db_out_na %>% 
  select(
    "hlr_books_b4_corrected", 
    "hlr_dbooks_b4_corrected",
    "hlr_games_b4_corrected",
    "hlr_dgames_b4_corrected",
    "hlr_ad_books_b4_corrected",
    "hlr_ad_dbooks_b4_corrected",
    "hlr_ad_news_b4_corrected",
    "hlr_books_since_corrected",
    "hlr_dbooks_since_corrected",
    "hlr_games_since_corrected",
    "hlr_dgames_since_corrected",
    "hlr_ad_books_since_corrected",
    "hlr_ad_dbooks_since_corrected",
    "hlr_ad_news_since_corrected" 
  )

db_bloco_2_pre <- db_bloco_2 %>% 
  select(
    "hlr_books_b4_corrected", 
    "hlr_dbooks_b4_corrected",
    "hlr_games_b4_corrected",
    "hlr_dgames_b4_corrected",
    "hlr_ad_books_b4_corrected",
    "hlr_ad_dbooks_b4_corrected",
    "hlr_ad_news_b4_corrected"
  )

db_bloco_2_pos <- db_bloco_2 %>% 
  select(
    "hlr_books_since_corrected",
    "hlr_dbooks_since_corrected",
    "hlr_games_since_corrected",
    "hlr_dgames_since_corrected",
    "hlr_ad_books_since_corrected",
    "hlr_ad_dbooks_since_corrected",
    "hlr_ad_news_since_corrected" 
  )

Analise Fatorial

matcor <- cor(db_bloco_2)
print(matcor, digits = 2)
##                               hlr_books_b4_corrected hlr_dbooks_b4_corrected
## hlr_books_b4_corrected                          1.00                    0.23
## hlr_dbooks_b4_corrected                         0.23                    1.00
## hlr_games_b4_corrected                          0.52                    0.34
## hlr_dgames_b4_corrected                         0.28                    0.50
## hlr_ad_books_b4_corrected                       0.65                    0.20
## hlr_ad_dbooks_b4_corrected                      0.33                    0.38
## hlr_ad_news_b4_corrected                        0.16                    0.18
## hlr_books_since_corrected                       0.88                    0.23
## hlr_dbooks_since_corrected                      0.27                    0.68
## hlr_games_since_corrected                       0.45                    0.30
## hlr_dgames_since_corrected                      0.25                    0.48
## hlr_ad_books_since_corrected                    0.57                    0.15
## hlr_ad_dbooks_since_corrected                   0.31                    0.38
## hlr_ad_news_since_corrected                     0.09                    0.17
##                               hlr_games_b4_corrected hlr_dgames_b4_corrected
## hlr_books_b4_corrected                         0.520                    0.28
## hlr_dbooks_b4_corrected                        0.335                    0.50
## hlr_games_b4_corrected                         1.000                    0.58
## hlr_dgames_b4_corrected                        0.579                    1.00
## hlr_ad_books_b4_corrected                      0.415                    0.23
## hlr_ad_dbooks_b4_corrected                     0.291                    0.35
## hlr_ad_news_b4_corrected                       0.148                    0.22
## hlr_books_since_corrected                      0.400                    0.15
## hlr_dbooks_since_corrected                     0.278                    0.36
## hlr_games_since_corrected                      0.754                    0.39
## hlr_dgames_since_corrected                     0.452                    0.66
## hlr_ad_books_since_corrected                   0.332                    0.11
## hlr_ad_dbooks_since_corrected                  0.214                    0.26
## hlr_ad_news_since_corrected                    0.086                    0.15
##                               hlr_ad_books_b4_corrected
## hlr_books_b4_corrected                             0.65
## hlr_dbooks_b4_corrected                            0.20
## hlr_games_b4_corrected                             0.41
## hlr_dgames_b4_corrected                            0.23
## hlr_ad_books_b4_corrected                          1.00
## hlr_ad_dbooks_b4_corrected                         0.46
## hlr_ad_news_b4_corrected                           0.23
## hlr_books_since_corrected                          0.61
## hlr_dbooks_since_corrected                         0.22
## hlr_games_since_corrected                          0.39
## hlr_dgames_since_corrected                         0.22
## hlr_ad_books_since_corrected                       0.90
## hlr_ad_dbooks_since_corrected                      0.45
## hlr_ad_news_since_corrected                        0.20
##                               hlr_ad_dbooks_b4_corrected
## hlr_books_b4_corrected                              0.33
## hlr_dbooks_b4_corrected                             0.38
## hlr_games_b4_corrected                              0.29
## hlr_dgames_b4_corrected                             0.35
## hlr_ad_books_b4_corrected                           0.46
## hlr_ad_dbooks_b4_corrected                          1.00
## hlr_ad_news_b4_corrected                            0.38
## hlr_books_since_corrected                           0.29
## hlr_dbooks_since_corrected                          0.32
## hlr_games_since_corrected                           0.25
## hlr_dgames_since_corrected                          0.32
## hlr_ad_books_since_corrected                        0.43
## hlr_ad_dbooks_since_corrected                       0.82
## hlr_ad_news_since_corrected                         0.32
##                               hlr_ad_news_b4_corrected
## hlr_books_b4_corrected                            0.16
## hlr_dbooks_b4_corrected                           0.18
## hlr_games_b4_corrected                            0.15
## hlr_dgames_b4_corrected                           0.22
## hlr_ad_books_b4_corrected                         0.23
## hlr_ad_dbooks_b4_corrected                        0.38
## hlr_ad_news_b4_corrected                          1.00
## hlr_books_since_corrected                         0.11
## hlr_dbooks_since_corrected                        0.17
## hlr_games_since_corrected                         0.12
## hlr_dgames_since_corrected                        0.15
## hlr_ad_books_since_corrected                      0.22
## hlr_ad_dbooks_since_corrected                     0.28
## hlr_ad_news_since_corrected                       0.79
##                               hlr_books_since_corrected
## hlr_books_b4_corrected                             0.88
## hlr_dbooks_b4_corrected                            0.23
## hlr_games_b4_corrected                             0.40
## hlr_dgames_b4_corrected                            0.15
## hlr_ad_books_b4_corrected                          0.61
## hlr_ad_dbooks_b4_corrected                         0.29
## hlr_ad_news_b4_corrected                           0.11
## hlr_books_since_corrected                          1.00
## hlr_dbooks_since_corrected                         0.31
## hlr_games_since_corrected                          0.52
## hlr_dgames_since_corrected                         0.29
## hlr_ad_books_since_corrected                       0.63
## hlr_ad_dbooks_since_corrected                      0.34
## hlr_ad_news_since_corrected                        0.11
##                               hlr_dbooks_since_corrected
## hlr_books_b4_corrected                              0.27
## hlr_dbooks_b4_corrected                             0.68
## hlr_games_b4_corrected                              0.28
## hlr_dgames_b4_corrected                             0.36
## hlr_ad_books_b4_corrected                           0.22
## hlr_ad_dbooks_b4_corrected                          0.32
## hlr_ad_news_b4_corrected                            0.17
## hlr_books_since_corrected                           0.31
## hlr_dbooks_since_corrected                          1.00
## hlr_games_since_corrected                           0.34
## hlr_dgames_since_corrected                          0.54
## hlr_ad_books_since_corrected                        0.21
## hlr_ad_dbooks_since_corrected                       0.43
## hlr_ad_news_since_corrected                         0.17
##                               hlr_games_since_corrected
## hlr_books_b4_corrected                            0.449
## hlr_dbooks_b4_corrected                           0.304
## hlr_games_b4_corrected                            0.754
## hlr_dgames_b4_corrected                           0.390
## hlr_ad_books_b4_corrected                         0.390
## hlr_ad_dbooks_b4_corrected                        0.246
## hlr_ad_news_b4_corrected                          0.115
## hlr_books_since_corrected                         0.522
## hlr_dbooks_since_corrected                        0.337
## hlr_games_since_corrected                         1.000
## hlr_dgames_since_corrected                        0.593
## hlr_ad_books_since_corrected                      0.436
## hlr_ad_dbooks_since_corrected                     0.267
## hlr_ad_news_since_corrected                       0.091
##                               hlr_dgames_since_corrected
## hlr_books_b4_corrected                              0.25
## hlr_dbooks_b4_corrected                             0.48
## hlr_games_b4_corrected                              0.45
## hlr_dgames_b4_corrected                             0.66
## hlr_ad_books_b4_corrected                           0.22
## hlr_ad_dbooks_b4_corrected                          0.32
## hlr_ad_news_b4_corrected                            0.15
## hlr_books_since_corrected                           0.29
## hlr_dbooks_since_corrected                          0.54
## hlr_games_since_corrected                           0.59
## hlr_dgames_since_corrected                          1.00
## hlr_ad_books_since_corrected                        0.24
## hlr_ad_dbooks_since_corrected                       0.38
## hlr_ad_news_since_corrected                         0.15
##                               hlr_ad_books_since_corrected
## hlr_books_b4_corrected                                0.57
## hlr_dbooks_b4_corrected                               0.15
## hlr_games_b4_corrected                                0.33
## hlr_dgames_b4_corrected                               0.11
## hlr_ad_books_b4_corrected                             0.90
## hlr_ad_dbooks_b4_corrected                            0.43
## hlr_ad_news_b4_corrected                              0.22
## hlr_books_since_corrected                             0.63
## hlr_dbooks_since_corrected                            0.21
## hlr_games_since_corrected                             0.44
## hlr_dgames_since_corrected                            0.24
## hlr_ad_books_since_corrected                          1.00
## hlr_ad_dbooks_since_corrected                         0.46
## hlr_ad_news_since_corrected                           0.20
##                               hlr_ad_dbooks_since_corrected
## hlr_books_b4_corrected                                 0.31
## hlr_dbooks_b4_corrected                                0.38
## hlr_games_b4_corrected                                 0.21
## hlr_dgames_b4_corrected                                0.26
## hlr_ad_books_b4_corrected                              0.45
## hlr_ad_dbooks_b4_corrected                             0.82
## hlr_ad_news_b4_corrected                               0.28
## hlr_books_since_corrected                              0.34
## hlr_dbooks_since_corrected                             0.43
## hlr_games_since_corrected                              0.27
## hlr_dgames_since_corrected                             0.38
## hlr_ad_books_since_corrected                           0.46
## hlr_ad_dbooks_since_corrected                          1.00
## hlr_ad_news_since_corrected                            0.33
##                               hlr_ad_news_since_corrected
## hlr_books_b4_corrected                              0.090
## hlr_dbooks_b4_corrected                             0.169
## hlr_games_b4_corrected                              0.086
## hlr_dgames_b4_corrected                             0.146
## hlr_ad_books_b4_corrected                           0.199
## hlr_ad_dbooks_b4_corrected                          0.324
## hlr_ad_news_b4_corrected                            0.795
## hlr_books_since_corrected                           0.106
## hlr_dbooks_since_corrected                          0.170
## hlr_games_since_corrected                           0.091
## hlr_dgames_since_corrected                          0.151
## hlr_ad_books_since_corrected                        0.203
## hlr_ad_dbooks_since_corrected                       0.333
## hlr_ad_news_since_corrected                         1.000
corrplot(matcor, method="circle", type = "upper")

matcor_pre <- cor(db_bloco_2_pre)
print(matcor_pre, digits = 2)
##                            hlr_books_b4_corrected hlr_dbooks_b4_corrected
## hlr_books_b4_corrected                       1.00                    0.23
## hlr_dbooks_b4_corrected                      0.23                    1.00
## hlr_games_b4_corrected                       0.52                    0.34
## hlr_dgames_b4_corrected                      0.28                    0.50
## hlr_ad_books_b4_corrected                    0.65                    0.20
## hlr_ad_dbooks_b4_corrected                   0.33                    0.38
## hlr_ad_news_b4_corrected                     0.16                    0.18
##                            hlr_games_b4_corrected hlr_dgames_b4_corrected
## hlr_books_b4_corrected                       0.52                    0.28
## hlr_dbooks_b4_corrected                      0.34                    0.50
## hlr_games_b4_corrected                       1.00                    0.58
## hlr_dgames_b4_corrected                      0.58                    1.00
## hlr_ad_books_b4_corrected                    0.41                    0.23
## hlr_ad_dbooks_b4_corrected                   0.29                    0.35
## hlr_ad_news_b4_corrected                     0.15                    0.22
##                            hlr_ad_books_b4_corrected hlr_ad_dbooks_b4_corrected
## hlr_books_b4_corrected                          0.65                       0.33
## hlr_dbooks_b4_corrected                         0.20                       0.38
## hlr_games_b4_corrected                          0.41                       0.29
## hlr_dgames_b4_corrected                         0.23                       0.35
## hlr_ad_books_b4_corrected                       1.00                       0.46
## hlr_ad_dbooks_b4_corrected                      0.46                       1.00
## hlr_ad_news_b4_corrected                        0.23                       0.38
##                            hlr_ad_news_b4_corrected
## hlr_books_b4_corrected                         0.16
## hlr_dbooks_b4_corrected                        0.18
## hlr_games_b4_corrected                         0.15
## hlr_dgames_b4_corrected                        0.22
## hlr_ad_books_b4_corrected                      0.23
## hlr_ad_dbooks_b4_corrected                     0.38
## hlr_ad_news_b4_corrected                       1.00
corrplot(matcor_pre, method="circle", type = "upper")

Multiple Correspondence Analysis

O MCA geralmente é usado para analisar um conjunto de dados de uma pesquisa. O objetivo é identificar:

  1. Um grupo de indivíduos com perfil semelhante em suas respostas às perguntas
  2. As associações entre categorias de variáveis

Calcular e visualizar a análise de correspondência múltipla no software R usando FactoMineR (para a análise) e factoextra (para visualização de dados) Revelar as variáveis mais importantes que mais contribuem para explicar as variações no conjunto de dados explicando como prever os resultados para indivíduos e variáveis suplementares. filtrar os resultados do MCA para manter apenas as variáveis que mais contribuíram.

library("FactoMineR")
library("factoextra")

PRE-PANDEMIA

db_bloco_2_pref <- as.data.frame(lapply(db_bloco_2_pre, as.factor))
summary(db_bloco_2_pref)
##  hlr_books_b4_corrected hlr_dbooks_b4_corrected hlr_games_b4_corrected
##  2      :240            0      :345             1      :404           
##  1      :160            1      :195             2      :117           
##  3      : 92            2      : 43             0      : 50           
##  7      : 46            3      : 10             3      : 18           
##  4      : 28            7      :  7             4      : 10           
##  0      : 21            4      :  6             5      :  7           
##  (Other): 28            (Other):  9             (Other):  9           
##  hlr_dgames_b4_corrected hlr_ad_books_b4_corrected hlr_ad_dbooks_b4_corrected
##  1      :336             2      :181               0      :285               
##  0      :172             1      :147               1      :179               
##  2      : 74             3      : 77               2      : 80               
##  3      : 19             7      : 67               3      : 28               
##  7      :  5             4      : 61               7      : 16               
##  4      :  4             0      : 39               4      : 13               
##  (Other):  5             (Other): 43               (Other): 14               
##  hlr_ad_news_b4_corrected
##  0:475                   
##  1:123                   
##  2:  9                   
##  3:  1                   
##  5:  2                   
##  6:  1                   
##  7:  4
for (i in 1:7) {
  plot(db_bloco_2_pref[,i], main=colnames(db_bloco_2_pref)[i],
       ylab = "Count", col="steelblue", las = 2)
  }

MCA com pacote FactoMineR

MCA(db_bloco_2_pref,ncp = 5, graph = TRUE) 

## **Results of the Multiple Correspondence Analysis (MCA)**
## The analysis was performed on 615 individuals, described by 7 variables
## *The results are available in the following objects:
## 
##    name              description                       
## 1  "$eig"            "eigenvalues"                     
## 2  "$var"            "results for the variables"       
## 3  "$var$coord"      "coord. of the categories"        
## 4  "$var$cos2"       "cos2 for the categories"         
## 5  "$var$contrib"    "contributions of the categories" 
## 6  "$var$v.test"     "v-test for the categories"       
## 7  "$ind"            "results for the individuals"     
## 8  "$ind$coord"      "coord. for the individuals"      
## 9  "$ind$cos2"       "cos2 for the individuals"        
## 10 "$ind$contrib"    "contributions of the individuals"
## 11 "$call"           "intermediate results"            
## 12 "$call$marge.col" "weights of columns"              
## 13 "$call$marge.li"  "weights of rows"
res.mca_pref <- MCA(db_bloco_2_pref, graph = FALSE)
print(res.mca_pref)
## **Results of the Multiple Correspondence Analysis (MCA)**
## The analysis was performed on 615 individuals, described by 7 variables
## *The results are available in the following objects:
## 
##    name              description                       
## 1  "$eig"            "eigenvalues"                     
## 2  "$var"            "results for the variables"       
## 3  "$var$coord"      "coord. of the categories"        
## 4  "$var$cos2"       "cos2 for the categories"         
## 5  "$var$contrib"    "contributions of the categories" 
## 6  "$var$v.test"     "v-test for the categories"       
## 7  "$ind"            "results for the individuals"     
## 8  "$ind$coord"      "coord. for the individuals"      
## 9  "$ind$cos2"       "cos2 for the individuals"        
## 10 "$ind$contrib"    "contributions of the individuals"
## 11 "$call"           "intermediate results"            
## 12 "$call$marge.col" "weights of columns"              
## 13 "$call$marge.li"  "weights of rows"

#Visualização e interpretação Autovalores/variâncias retidos por cada dimensão (eixo)

eig.val_pref <- get_eigenvalue(res.mca_pref)
eig.val_pref
##        eigenvalue variance.percent cumulative.variance.percent
## Dim.1  0.47081167        6.8660036                    6.866004
## Dim.2  0.34671215        5.0562189                   11.922222
## Dim.3  0.30395824        4.4327243                   16.354947
## Dim.4  0.27522050        4.0136322                   20.368579
## Dim.5  0.26258653        3.8293869                   24.197966
## Dim.6  0.24793842        3.6157686                   27.813734
## Dim.7  0.24294446        3.5429401                   31.356674
## Dim.8  0.21435872        3.1260646                   34.482739
## Dim.9  0.21162663        3.0862217                   37.568961
## Dim.10 0.20433798        2.9799289                   40.548890
## Dim.11 0.20168201        2.9411960                   43.490086
## Dim.12 0.19559529        2.8524313                   46.342517
## Dim.13 0.19134784        2.7904894                   49.133006
## Dim.14 0.17911062        2.6120299                   51.745036
## Dim.15 0.17224543        2.5119125                   54.256949
## Dim.16 0.16566982        2.4160183                   56.672967
## Dim.17 0.15729265        2.2938511                   58.966818
## Dim.18 0.15429354        2.2501142                   61.216932
## Dim.19 0.14433373        2.1048669                   63.321799
## Dim.20 0.14203594        2.0713574                   65.393157
## Dim.21 0.13890796        2.0257411                   67.418898
## Dim.22 0.13454501        1.9621147                   69.381012
## Dim.23 0.12795270        1.8659769                   71.246989
## Dim.24 0.12456549        1.8165800                   73.063569
## Dim.25 0.12181382        1.7764515                   74.840021
## Dim.26 0.12111314        1.7662333                   76.606254
## Dim.27 0.11478088        1.6738879                   78.280142
## Dim.28 0.10991455        1.6029205                   79.883062
## Dim.29 0.10587962        1.5440778                   81.427140
## Dim.30 0.10522216        1.5344898                   82.961630
## Dim.31 0.10242769        1.4937371                   84.455367
## Dim.32 0.09788949        1.4275551                   85.882922
## Dim.33 0.09598304        1.3997527                   87.282675
## Dim.34 0.08659478        1.2628405                   88.545515
## Dim.35 0.07952474        1.1597358                   89.705251
## Dim.36 0.07760186        1.1316938                   90.836945
## Dim.37 0.07576833        1.1049548                   91.941900
## Dim.38 0.07148477        1.0424863                   92.984386
## Dim.39 0.06824590        0.9952527                   93.979639
## Dim.40 0.06519654        0.9507829                   94.930422
## Dim.41 0.05822760        0.8491525                   95.779574
## Dim.42 0.05743007        0.8375219                   96.617096
## Dim.43 0.05429165        0.7917533                   97.408849
## Dim.44 0.05000685        0.7292665                   98.138116
## Dim.45 0.03849127        0.5613311                   98.699447
## Dim.46 0.03374657        0.4921374                   99.191584
## Dim.47 0.02925845        0.4266857                   99.618270
## Dim.48 0.02617577        0.3817299                  100.000000

Porcentagens de inércia explicadas por cada dimensão MCA

fviz_screeplot(res.mca_pref, addlabels = TRUE, ylim = c(0, 45))

Biplot de indivíduos e categorias de variáveis:

fviz_mca_biplot(res.mca_pref, 
               repel = TRUE, # Avoid text overlapping (slow if many point)
               ggtheme = theme_minimal())
## Warning: ggrepel: 583 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps
## Warning: ggrepel: 36 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps

#Gráfico de variáveis #Resultados Usada para extrair os resultados para categorias de variáveis. Esta função retorna uma lista contendo as coordenadas, o cos2 e a contribuição das categorias de variáveis:

var_pref <- get_mca_var(res.mca_pref)
var_pref
## Multiple Correspondence Analysis Results for variables
##  ===================================================
##   Name       Description                  
## 1 "$coord"   "Coordinates for categories" 
## 2 "$cos2"    "Cos2 for categories"        
## 3 "$contrib" "contributions of categories"
# Coordinates
var_pref$coord
##                                    Dim 1       Dim 2         Dim 3        Dim 4
## hlr_books_b4_corrected_0     -0.72846403 -1.88687148 -1.505528e-01  0.656276317
## hlr_books_b4_corrected_1     -0.42816860 -0.35170016 -6.962279e-02  0.200974851
## hlr_books_b4_corrected_2     -0.23851182  0.17912482  1.519757e-01 -0.087915058
## hlr_books_b4_corrected_3     -0.12331746  0.73683821 -4.007216e-02 -0.241789582
## hlr_books_b4_corrected_4      0.49473179  0.27636133 -1.030651e-01 -0.023222786
## hlr_books_b4_corrected_5      1.95710308  0.63455941 -5.725861e-01  2.344241501
## hlr_books_b4_corrected_6      0.68148015 -0.04649247 -3.371274e-01 -0.923753859
## hlr_books_b4_corrected_7      2.04231240 -0.75956763 -3.155880e-02 -0.900827924
## hlr_dbooks_b4_corrected_0    -0.23623733 -0.45578482 -2.649208e-05  0.018272585
## hlr_dbooks_b4_corrected_1     0.04584308  0.54881237  4.009997e-02 -0.106263466
## hlr_dbooks_b4_corrected_2    -0.02750506  1.04942578 -1.950435e-01  0.077771059
## hlr_dbooks_b4_corrected_3     0.28017207  1.67697694  5.577987e-01 -0.491218805
## hlr_dbooks_b4_corrected_4     3.21963548  0.42448683 -1.942759e+00  0.418690264
## hlr_dbooks_b4_corrected_5     2.90059588 -0.53094080 -1.163950e+00  5.024710243
## hlr_dbooks_b4_corrected_6     2.54504203 -0.39563263  9.448970e+00 -1.366354425
## hlr_dbooks_b4_corrected_7     3.79813712 -1.40601519 -2.101162e+00 -1.796567631
## hlr_games_b4_corrected_0     -0.61799217 -1.48838083 -8.502699e-02  0.420701980
## hlr_games_b4_corrected_1     -0.21494196 -0.03623749  6.296213e-02  0.003168325
## hlr_games_b4_corrected_2      0.13957654  0.79212952 -8.055370e-02 -0.239184084
## hlr_games_b4_corrected_3      0.59320347  1.50670860 -3.897926e-01  0.838205731
## hlr_games_b4_corrected_4      3.38895911 -0.56833762 -1.176060e+00  2.247111971
## hlr_games_b4_corrected_5      3.78385449 -1.17160462  4.463078e+00  0.661770096
## hlr_games_b4_corrected_6      2.33523723  0.18945044 -1.716557e+00 -0.590810752
## hlr_games_b4_corrected_7      3.89096016 -2.90411077 -3.179263e+00 -5.791557635
## hlr_dgames_b4_corrected_0    -0.32333326 -0.65652099 -5.216355e-03  0.106219625
## hlr_dgames_b4_corrected_1    -0.15210553  0.09370552  1.531864e-02 -0.047766053
## hlr_dgames_b4_corrected_2     0.41871688  0.94939086  5.926203e-02 -0.143538849
## hlr_dgames_b4_corrected_3     0.81325820  1.64986648 -4.140516e-01  0.256676042
## hlr_dgames_b4_corrected_4     2.41989391  0.38522480  7.673639e-01  1.322585480
## hlr_dgames_b4_corrected_5     5.27608562 -1.43489673 -6.347500e-01  7.221358861
## hlr_dgames_b4_corrected_6     6.05422691 -2.64456810  1.904441e+01 -2.570698753
## hlr_dgames_b4_corrected_7     4.68913615 -2.66451474 -4.068625e+00 -5.616086058
## hlr_ad_books_b4_corrected_0  -0.70806625 -1.54779340 -1.548014e-01  0.544546586
## hlr_ad_books_b4_corrected_1  -0.41495235 -0.19665005 -2.671450e-02  0.114116650
## hlr_ad_books_b4_corrected_2  -0.29441307  0.02426744  1.904026e-01 -0.041382173
## hlr_ad_books_b4_corrected_3  -0.07190634  0.48411283 -8.005715e-02 -0.137455072
## hlr_ad_books_b4_corrected_4  -0.06387342  0.87373659 -5.786781e-02 -0.236378236
## hlr_ad_books_b4_corrected_5   0.51635545  1.26783064 -2.925369e-01  0.109472983
## hlr_ad_books_b4_corrected_6   1.13419346 -0.30728861 -8.213579e-01 -0.020846613
## hlr_ad_books_b4_corrected_7   1.77056539 -0.49903311  1.009671e-01 -0.119568407
## hlr_ad_dbooks_b4_corrected_0 -0.34417905 -0.54646046 -7.513583e-02  0.050407154
## hlr_ad_dbooks_b4_corrected_1 -0.06715259  0.47713795  5.032310e-02  0.019301653
## hlr_ad_dbooks_b4_corrected_2  0.20546577  0.30711631  3.276222e-01 -0.349886952
## hlr_ad_dbooks_b4_corrected_3  0.13769371  1.50663651 -1.703513e-01 -0.278855924
## hlr_ad_dbooks_b4_corrected_4  0.27145674  0.82820323 -1.118326e-01 -0.004986065
## hlr_ad_dbooks_b4_corrected_5  1.44537481  1.01115354  3.699970e-01 -0.413577867
## hlr_ad_dbooks_b4_corrected_6  3.40217721 -1.31955683  4.245744e-01 -2.332750093
## hlr_ad_dbooks_b4_corrected_7  3.39460357 -0.46000729 -8.179791e-01  2.209239340
## hlr_ad_news_b4_corrected_0   -0.18583510 -0.17081045 -3.827842e-02 -0.022364007
## hlr_ad_news_b4_corrected_1    0.45633079  0.57082096 -6.739723e-02  0.144490176
## hlr_ad_news_b4_corrected_2    1.28651881  1.32668445 -9.446558e-01 -0.209217112
## hlr_ad_news_b4_corrected_3    0.19307306  3.59395923  6.282958e-01 -1.383739590
## hlr_ad_news_b4_corrected_5    3.15963992 -0.66653098  2.793327e+00 -1.068251155
## hlr_ad_news_b4_corrected_6   -0.15338926  1.74307716  8.925721e-02 -0.518206175
## hlr_ad_news_b4_corrected_7    3.55133792 -1.25503747  7.167451e+00 -0.306996553
##                                    Dim 5
## hlr_books_b4_corrected_0      1.92907110
## hlr_books_b4_corrected_1     -0.13641190
## hlr_books_b4_corrected_2     -0.35519843
## hlr_books_b4_corrected_3      0.47966998
## hlr_books_b4_corrected_4      0.77990180
## hlr_books_b4_corrected_5      0.29124807
## hlr_books_b4_corrected_6     -0.04295493
## hlr_books_b4_corrected_7     -0.10619951
## hlr_dbooks_b4_corrected_0     0.11717131
## hlr_dbooks_b4_corrected_1    -0.46678040
## hlr_dbooks_b4_corrected_2     0.90493672
## hlr_dbooks_b4_corrected_3     1.43201115
## hlr_dbooks_b4_corrected_4     0.71374619
## hlr_dbooks_b4_corrected_5    -1.42539681
## hlr_dbooks_b4_corrected_6     0.21191209
## hlr_dbooks_b4_corrected_7     0.14283629
## hlr_games_b4_corrected_0      1.17014121
## hlr_games_b4_corrected_1     -0.37983857
## hlr_games_b4_corrected_2      0.62195371
## hlr_games_b4_corrected_3      1.06504943
## hlr_games_b4_corrected_4     -0.46244015
## hlr_games_b4_corrected_5      1.15936079
## hlr_games_b4_corrected_6      1.17848308
## hlr_games_b4_corrected_7     -0.66972061
## hlr_dgames_b4_corrected_0     0.46070058
## hlr_dgames_b4_corrected_1    -0.50002648
## hlr_dgames_b4_corrected_2     0.90389479
## hlr_dgames_b4_corrected_3     1.37618101
## hlr_dgames_b4_corrected_4    -0.35943987
## hlr_dgames_b4_corrected_5    -0.73928600
## hlr_dgames_b4_corrected_6     1.89888243
## hlr_dgames_b4_corrected_7    -0.35424722
## hlr_ad_books_b4_corrected_0   1.27285697
## hlr_ad_books_b4_corrected_1  -0.44576606
## hlr_ad_books_b4_corrected_2  -0.34374413
## hlr_ad_books_b4_corrected_3   0.20541767
## hlr_ad_books_b4_corrected_4   0.80144574
## hlr_ad_books_b4_corrected_5   0.53928884
## hlr_ad_books_b4_corrected_6   0.75958908
## hlr_ad_books_b4_corrected_7  -0.20202983
## hlr_ad_dbooks_b4_corrected_0  0.20601441
## hlr_ad_dbooks_b4_corrected_1 -0.71950047
## hlr_ad_dbooks_b4_corrected_2  0.34140593
## hlr_ad_dbooks_b4_corrected_3  1.10568141
## hlr_ad_dbooks_b4_corrected_4  1.07482955
## hlr_ad_dbooks_b4_corrected_5  1.61333358
## hlr_ad_dbooks_b4_corrected_6 -1.04493010
## hlr_ad_dbooks_b4_corrected_7 -0.55030930
## hlr_ad_news_b4_corrected_0    0.09963070
## hlr_ad_news_b4_corrected_1   -0.47842338
## hlr_ad_news_b4_corrected_2    0.69249692
## hlr_ad_news_b4_corrected_3    4.01452753
## hlr_ad_news_b4_corrected_5    0.15915568
## hlr_ad_news_b4_corrected_6    0.20812578
## hlr_ad_news_b4_corrected_7    0.18701477
var_pref$cos2
##                                     Dim 1        Dim 2        Dim 3
## hlr_books_b4_corrected_0     1.876070e-02 0.1258686257 8.013288e-04
## hlr_books_b4_corrected_1     6.446711e-02 0.0434964416 1.704556e-03
## hlr_books_b4_corrected_2     3.640825e-02 0.0205348492 1.478183e-02
## hlr_books_b4_corrected_3     2.675071e-03 0.0955059476 2.824695e-04
## hlr_books_b4_corrected_4     1.167507e-02 0.0036431285 5.066911e-04
## hlr_books_b4_corrected_5     1.287480e-01 0.0135349797 1.102033e-02
## hlr_books_b4_corrected_6     6.120793e-03 0.0000284883 1.497922e-03
## hlr_books_b4_corrected_7     3.372018e-01 0.0466421397 8.051679e-05
## hlr_dbooks_b4_corrected_0    7.131032e-02 0.2654452985 8.967831e-10
## hlr_dbooks_b4_corrected_1    9.757373e-04 0.1398405431 7.465748e-04
## hlr_dbooks_b4_corrected_2    5.687187e-05 0.0827896187 2.859797e-03
## hlr_dbooks_b4_corrected_3    1.297461e-03 0.0464834986 5.142800e-03
## hlr_dbooks_b4_corrected_4    1.021286e-01 0.0017752617 3.718533e-02
## hlr_dbooks_b4_corrected_5    8.289120e-02 0.0027773215 1.334758e-02
## hlr_dbooks_b4_corrected_6    3.175117e-02 0.0007672803 4.376620e-01
## hlr_dbooks_b4_corrected_7    1.660870e-01 0.0227601168 5.082922e-02
## hlr_games_b4_corrected_0     3.379773e-02 0.1960422570 6.397867e-04
## hlr_games_b4_corrected_1     8.845886e-02 0.0025142881 7.590279e-03
## hlr_games_b4_corrected_2     4.577005e-03 0.1474174555 1.524500e-03
## hlr_games_b4_corrected_3     1.060976e-02 0.0684473610 4.581052e-03
## hlr_games_b4_corrected_4     1.898354e-01 0.0053389694 2.286144e-02
## hlr_games_b4_corrected_5     1.648403e-01 0.0158036213 2.293313e-01
## hlr_games_b4_corrected_6     2.673202e-02 0.0001759386 1.444395e-02
## hlr_games_b4_corrected_7     1.491583e-01 0.0830922105 9.958339e-02
## hlr_dgames_b4_corrected_0    4.059060e-02 0.1673485517 1.056474e-05
## hlr_dgames_b4_corrected_1    2.786282e-02 0.0105746355 2.826021e-04
## hlr_dgames_b4_corrected_2    2.398145e-02 0.1232890606 4.803829e-04
## hlr_dgames_b4_corrected_3    2.108455e-02 0.0867770619 5.465329e-03
## hlr_dgames_b4_corrected_4    3.833641e-02 0.0009715099 3.854974e-03
## hlr_dgames_b4_corrected_5    1.822395e-01 0.0134790746 2.637693e-03
## hlr_dgames_b4_corrected_6    5.969652e-02 0.0113904568 5.906998e-01
## hlr_dgames_b4_corrected_7    1.802295e-01 0.0581937604 1.356862e-01
## hlr_ad_books_b4_corrected_0  3.394610e-02 0.1622064452 1.622527e-03
## hlr_ad_books_b4_corrected_1  5.408389e-02 0.0121467360 2.241639e-04
## hlr_ad_books_b4_corrected_2  3.614956e-02 0.0002456048 1.511940e-02
## hlr_ad_books_b4_corrected_3  7.400189e-04 0.0335429799 9.172943e-04
## hlr_ad_books_b4_corrected_4  4.492214e-04 0.0840584000 3.687179e-04
## hlr_ad_books_b4_corrected_5  1.176943e-02 0.0709545973 3.777630e-03
## hlr_ad_books_b4_corrected_6  3.656975e-02 0.0026843595 1.917841e-02
## hlr_ad_books_b4_corrected_7  3.832818e-01 0.0304475925 1.246390e-03
## hlr_ad_dbooks_b4_corrected_0 1.023057e-01 0.2578982616 4.875566e-03
## hlr_ad_dbooks_b4_corrected_1 1.851365e-03 0.0934661718 1.039684e-03
## hlr_ad_dbooks_b4_corrected_2 6.312700e-03 0.0141039897 1.605029e-02
## hlr_ad_dbooks_b4_corrected_3 9.043741e-04 0.1082771720 1.384238e-03
## hlr_ad_dbooks_b4_corrected_4 1.591286e-03 0.0148122388 2.700743e-04
## hlr_ad_dbooks_b4_corrected_5 2.753355e-02 0.0134752090 1.804254e-03
## hlr_ad_dbooks_b4_corrected_6 1.140375e-01 0.0171549777 1.775994e-03
## hlr_ad_dbooks_b4_corrected_7 3.078019e-01 0.0056522660 1.787218e-02
## hlr_ad_news_b4_corrected_0   1.171712e-01 0.0989907082 4.971341e-03
## hlr_ad_news_b4_corrected_1   5.205945e-02 0.0814591410 1.135597e-03
## hlr_ad_news_b4_corrected_2   2.458115e-02 0.0261399746 1.325309e-02
## hlr_ad_news_b4_corrected_3   6.071206e-05 0.0210367149 6.429245e-04
## hlr_ad_news_b4_corrected_5   3.257202e-02 0.0014494733 2.545735e-02
## hlr_ad_news_b4_corrected_6   3.831965e-05 0.0049484006 1.297533e-05
## hlr_ad_news_b4_corrected_7   8.256629e-02 0.0103117450 3.363165e-01
##                                     Dim 4        Dim 5
## hlr_books_b4_corrected_0     1.522672e-02 1.315617e-01
## hlr_books_b4_corrected_1     1.420339e-02 6.543545e-03
## hlr_books_b4_corrected_2     4.946597e-03 8.074619e-02
## hlr_books_b4_corrected_3     1.028398e-02 4.047354e-02
## hlr_books_b4_corrected_4     2.572460e-05 2.901348e-02
## hlr_books_b4_corrected_5     1.847216e-01 2.851275e-03
## hlr_books_b4_corrected_6     1.124641e-02 2.431798e-05
## hlr_books_b4_corrected_7     6.560384e-02 9.117812e-04
## hlr_dbooks_b4_corrected_0    4.266339e-04 1.754276e-02
## hlr_dbooks_b4_corrected_1    5.242679e-03 1.011604e-01
## hlr_dbooks_b4_corrected_2    4.546827e-04 6.156145e-02
## hlr_dbooks_b4_corrected_3    3.988362e-03 3.389514e-02
## hlr_dbooks_b4_corrected_4    1.727109e-03 5.019050e-03
## hlr_dbooks_b4_corrected_5    2.487459e-01 2.001730e-02
## hlr_dbooks_b4_corrected_6    9.151590e-03 2.201310e-04
## hlr_dbooks_b4_corrected_7    3.716050e-02 2.348938e-04
## hlr_games_b4_corrected_0     1.566285e-02 1.211708e-01
## hlr_games_b4_corrected_1     1.922022e-05 2.762467e-01
## hlr_games_b4_corrected_2     1.344067e-02 9.088091e-02
## hlr_games_b4_corrected_3     2.118358e-02 3.420091e-02
## hlr_games_b4_corrected_4     8.346301e-02 3.534726e-03
## hlr_games_b4_corrected_5     5.042068e-03 1.547504e-02
## hlr_games_b4_corrected_6     1.711065e-03 6.807953e-03
## hlr_games_b4_corrected_7     3.304644e-01 4.418972e-03
## hlr_dgames_b4_corrected_0    4.380607e-03 8.240665e-02
## hlr_dgames_b4_corrected_1    2.747728e-03 3.011072e-01
## hlr_dgames_b4_corrected_2    2.818210e-03 1.117558e-01
## hlr_dgames_b4_corrected_3    2.100284e-03 6.037518e-02
## hlr_dgames_b4_corrected_4    1.145160e-02 8.458070e-04
## hlr_dgames_b4_corrected_5    3.413946e-01 3.578028e-03
## hlr_dgames_b4_corrected_6    1.076302e-02 5.872564e-03
## hlr_dgames_b4_corrected_7    2.585281e-01 1.028616e-03
## hlr_ad_books_b4_corrected_0  2.007762e-02 1.096987e-01
## hlr_ad_books_b4_corrected_1  4.090435e-03 6.241450e-02
## hlr_ad_books_b4_corrected_2  7.141927e-04 4.927872e-02
## hlr_ad_books_b4_corrected_3  2.704145e-03 6.039264e-03
## hlr_ad_books_b4_corrected_4  6.152265e-03 7.072424e-02
## hlr_ad_books_b4_corrected_5  5.290198e-04 1.283810e-02
## hlr_ad_books_b4_corrected_6  1.235432e-05 1.640232e-02
## hlr_ad_books_b4_corrected_7  1.747942e-03 4.990284e-03
## hlr_ad_dbooks_b4_corrected_0 2.194397e-03 3.665440e-02
## hlr_ad_dbooks_b4_corrected_1 1.529521e-04 2.125341e-01
## hlr_ad_dbooks_b4_corrected_2 1.830593e-02 1.742924e-02
## hlr_ad_dbooks_b4_corrected_3 3.709195e-03 5.831496e-02
## hlr_ad_dbooks_b4_corrected_4 5.368620e-07 2.494744e-02
## hlr_ad_dbooks_b4_corrected_5 2.254322e-03 3.430439e-02
## hlr_ad_dbooks_b4_corrected_6 5.361303e-02 1.075743e-02
## hlr_ad_dbooks_b4_corrected_7 1.303703e-01 8.089224e-03
## hlr_ad_news_b4_corrected_0   1.696933e-03 3.367843e-02
## hlr_ad_news_b4_corrected_1   5.219353e-03 5.722223e-02
## hlr_ad_news_b4_corrected_2   6.500762e-04 7.122059e-03
## hlr_ad_news_b4_corrected_3   3.118461e-03 2.624826e-02
## hlr_ad_news_b4_corrected_5   3.723199e-03 8.264448e-05
## hlr_ad_news_b4_corrected_6   4.373577e-04 7.054779e-05
## hlr_ad_news_b4_corrected_7   6.170009e-04 2.289658e-04
var_pref$contrib
##                                     Dim 1       Dim 2        Dim 3        Dim 4
## hlr_books_b4_corrected_0      0.549813180 5.009123260 3.637560e-02 7.633766e-01
## hlr_books_b4_corrected_1      1.447202267 1.325937060 5.927011e-02 5.454431e-01
## hlr_books_b4_corrected_2      0.673613326 0.515917868 4.236160e-01 1.565611e-01
## hlr_books_b4_corrected_3      0.069026616 3.346492764 1.128980e-02 4.539511e-01
## hlr_books_b4_corrected_4      0.338125001 0.143274985 2.272973e-02 1.274479e-03
## hlr_books_b4_corrected_5      3.779523229 0.539550820 5.011001e-01 9.276428e+00
## hlr_books_b4_corrected_6      0.183305724 0.001158545 6.948498e-02 5.761673e-01
## hlr_books_b4_corrected_7      9.466333549 1.778068611 3.501157e-03 3.150559e+00
## hlr_dbooks_b4_corrected_0     0.949939093 4.801717274 1.850394e-08 9.722214e-03
## hlr_dbooks_b4_corrected_1     0.020219101 3.934958673 2.396269e-02 1.858440e-01
## hlr_dbooks_b4_corrected_2     0.001604993 3.172705012 1.250098e-01 2.195081e-02
## hlr_dbooks_b4_corrected_3     0.038728377 1.884134778 2.377759e-01 2.036555e-01
## hlr_dbooks_b4_corrected_4     3.068628275 0.072433165 1.730621e+00 8.877344e-02
## hlr_dbooks_b4_corrected_5     2.490607689 0.113318608 6.212016e-01 1.278555e+01
## hlr_dbooks_b4_corrected_6     0.958717806 0.031460328 2.046931e+01 4.727092e-01
## hlr_dbooks_b4_corrected_7     4.982174566 0.927119786 2.361728e+00 1.906915e+00
## hlr_games_b4_corrected_0      0.942140291 7.420888817 2.762464e-02 7.469047e-01
## hlr_games_b4_corrected_1      0.920880793 0.035543099 1.223920e-01 3.422842e-04
## hlr_games_b4_corrected_2      0.112457989 4.918538067 5.801893e-02 5.649324e-01
## hlr_games_b4_corrected_3      0.312506819 2.737718703 2.090030e-01 1.067382e+00
## hlr_games_b4_corrected_4      5.666465894 0.216406645 1.056993e+00 4.261824e+00
## hlr_games_b4_corrected_5      4.944774781 0.643751090 1.065565e+01 2.587369e-01
## hlr_games_b4_corrected_6      0.807166050 0.007213903 6.755390e-01 8.838206e-02
## hlr_games_b4_corrected_7      4.481717123 3.390278602 4.634652e+00 1.698588e+01
## hlr_dgames_b4_corrected_0     0.887174062 4.966877715 3.576643e-04 1.637887e-01
## hlr_dgames_b4_corrected_1     0.383538472 0.197663915 6.025492e-03 6.470295e-02
## hlr_dgames_b4_corrected_2     0.640106562 4.468683456 1.986085e-02 1.286817e-01
## hlr_dgames_b4_corrected_3     0.619997768 3.465045844 2.489290e-01 1.056502e-01
## hlr_dgames_b4_corrected_4     1.155665817 0.039769144 1.800013e-01 5.905458e-01
## hlr_dgames_b4_corrected_5     5.493679031 0.551771251 1.231625e-01 1.760532e+01
## hlr_dgames_b4_corrected_6     1.808410459 0.468562247 2.771712e+01 5.577614e-01
## hlr_dgames_b4_corrected_7     5.424195229 2.378285786 6.325259e+00 1.331017e+01
## hlr_ad_books_b4_corrected_0   0.964699416 6.259625822 7.142122e-02 9.760695e-01
## hlr_ad_books_b4_corrected_1   1.248801497 0.380858130 8.017232e-03 1.615703e-01
## hlr_ad_books_b4_corrected_2   0.774055998 0.007141417 5.014611e-01 2.616081e-02
## hlr_ad_books_b4_corrected_3   0.019642859 1.209042873 3.771411e-02 1.227887e-01
## hlr_ad_books_b4_corrected_4   0.012278627 3.119957422 1.561050e-02 2.876676e-01
## hlr_ad_books_b4_corrected_5   0.342019213 2.799971544 1.700386e-01 2.629864e-02
## hlr_ad_books_b4_corrected_6   1.078953739 0.107547332 8.764491e-01 6.235424e-04
## hlr_ad_books_b4_corrected_7  10.362829870 1.117869997 5.219725e-02 8.084511e-02
## hlr_ad_dbooks_b4_corrected_0  1.665686793 5.701907109 1.229566e-01 6.111887e-02
## hlr_ad_dbooks_b4_corrected_1  0.039825219 2.730226816 3.464183e-02 5.628441e-03
## hlr_ad_dbooks_b4_corrected_2  0.166628231 0.505537697 6.562203e-01 8.265927e-01
## hlr_ad_dbooks_b4_corrected_3  0.026191830 4.258266019 6.209574e-02 1.837654e-01
## hlr_ad_dbooks_b4_corrected_4  0.047263322 0.597413428 1.242490e-02 2.727754e-05
## hlr_ad_dbooks_b4_corrected_5  0.824575779 0.548001799 8.369494e-02 1.154917e-01
## hlr_ad_dbooks_b4_corrected_6  3.426452640 0.699947125 8.265549e-02 2.755712e+00
## hlr_ad_dbooks_b4_corrected_7  9.096571403 0.226833502 8.181206e-01 6.591004e+00
## hlr_ad_news_b4_corrected_0    0.809335723 0.928496455 5.318811e-02 2.005113e-02
## hlr_ad_news_b4_corrected_1    1.263700828 2.685113897 4.269747e-02 2.167344e-01
## hlr_ad_news_b4_corrected_2    0.734944273 1.061293658 6.137657e-01 3.324934e-02
## hlr_ad_news_b4_corrected_3    0.001839175 0.865374464 3.016764e-02 1.616050e-01
## hlr_ad_news_b4_corrected_5    0.985110170 0.059528983 1.192577e+00 1.926295e-01
## hlr_ad_news_b4_corrected_6    0.001160832 0.203559328 6.088350e-04 2.266477e-02
## hlr_ad_news_b4_corrected_7    2.488992630 0.422115361 1.570371e+01 3.181801e-02
##                                    Dim 5
## hlr_books_b4_corrected_0     6.913057376
## hlr_books_b4_corrected_1     0.263377636
## hlr_books_b4_corrected_2     2.678599000
## hlr_books_b4_corrected_3     1.872523638
## hlr_books_b4_corrected_4     1.506580251
## hlr_books_b4_corrected_5     0.150075741
## hlr_books_b4_corrected_6     0.001305781
## hlr_books_b4_corrected_7     0.045894146
## hlr_dbooks_b4_corrected_0    0.419001966
## hlr_dbooks_b4_corrected_1    3.758497277
## hlr_dbooks_b4_corrected_2    3.115008772
## hlr_dbooks_b4_corrected_3    1.814041410
## hlr_dbooks_b4_corrected_4    0.270391636
## hlr_dbooks_b4_corrected_5    1.078393371
## hlr_dbooks_b4_corrected_6    0.011917553
## hlr_dbooks_b4_corrected_7    0.012633670
## hlr_games_b4_corrected_0     6.056210293
## hlr_games_b4_corrected_1     5.156249158
## hlr_games_b4_corrected_2     4.003652590
## hlr_games_b4_corrected_3     1.806202466
## hlr_games_b4_corrected_4     0.189175751
## hlr_games_b4_corrected_5     0.832318694
## hlr_games_b4_corrected_6     0.368572015
## hlr_games_b4_corrected_7     0.238063585
## hlr_dgames_b4_corrected_0    3.229388969
## hlr_dgames_b4_corrected_1    7.431554644
## hlr_dgames_b4_corrected_2    5.348375415
## hlr_dgames_b4_corrected_3    3.183164779
## hlr_dgames_b4_corrected_4    0.045715858
## hlr_dgames_b4_corrected_5    0.193392377
## hlr_dgames_b4_corrected_6    0.318970520
## hlr_dgames_b4_corrected_7    0.055505664
## hlr_ad_books_b4_corrected_0  5.589567627
## hlr_ad_books_b4_corrected_1  2.583959648
## hlr_ad_books_b4_corrected_2  1.891923421
## hlr_ad_books_b4_corrected_3  0.287422469
## hlr_ad_books_b4_corrected_4  3.466031289
## hlr_ad_books_b4_corrected_5  0.668914501
## hlr_ad_books_b4_corrected_6  0.867682319
## hlr_ad_books_b4_corrected_7  0.241913543
## hlr_ad_dbooks_b4_corrected_0 1.070026273
## hlr_ad_dbooks_b4_corrected_1 8.197276586
## hlr_ad_dbooks_b4_corrected_2 0.824871913
## hlr_ad_dbooks_b4_corrected_3 3.028115553
## hlr_ad_dbooks_b4_corrected_4 1.328547075
## hlr_ad_dbooks_b4_corrected_5 1.842013163
## hlr_ad_dbooks_b4_corrected_6 0.579535604
## hlr_ad_dbooks_b4_corrected_7 0.428635441
## hlr_ad_news_b4_corrected_0   0.417094368
## hlr_ad_news_b4_corrected_1   2.490487145
## hlr_ad_news_b4_corrected_2   0.381797075
## hlr_ad_news_b4_corrected_3   1.425684001
## hlr_ad_news_b4_corrected_5   0.004481555
## hlr_ad_news_b4_corrected_6   0.003831829
## hlr_ad_news_b4_corrected_7   0.012375599

#Correlação entre variáveis e dimensões principais correlação entre as variáveis e as dimensões principais do MCA

fviz_mca_var(res.mca_pref, choice = "mca.cor", 
            repel = TRUE, # Avoid text overlapping (slow)
            ggtheme = theme_minimal())

head(round(var_pref$coord, 2), 4)
##                          Dim 1 Dim 2 Dim 3 Dim 4 Dim 5
## hlr_books_b4_corrected_0 -0.73 -1.89 -0.15  0.66  1.93
## hlr_books_b4_corrected_1 -0.43 -0.35 -0.07  0.20 -0.14
## hlr_books_b4_corrected_2 -0.24  0.18  0.15 -0.09 -0.36
## hlr_books_b4_corrected_3 -0.12  0.74 -0.04 -0.24  0.48

para visualizar apenas categorias de variáveis:

fviz_mca_var(res.mca_pref, 
             repel = TRUE, # Avoid text overlapping (slow)
             ggtheme = theme_minimal())
## Warning: ggrepel: 36 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps

head(var_pref$cos2, 10)
##                                  Dim 1        Dim 2        Dim 3        Dim 4
## hlr_books_b4_corrected_0  0.0187607018 0.1258686257 8.013288e-04 0.0152267183
## hlr_books_b4_corrected_1  0.0644671121 0.0434964416 1.704556e-03 0.0142033901
## hlr_books_b4_corrected_2  0.0364082480 0.0205348492 1.478183e-02 0.0049465967
## hlr_books_b4_corrected_3  0.0026750708 0.0955059476 2.824695e-04 0.0102839820
## hlr_books_b4_corrected_4  0.0116750718 0.0036431285 5.066911e-04 0.0000257246
## hlr_books_b4_corrected_5  0.1287479822 0.0135349797 1.102033e-02 0.1847216207
## hlr_books_b4_corrected_6  0.0061207933 0.0000284883 1.497922e-03 0.0112464078
## hlr_books_b4_corrected_7  0.3372018235 0.0466421397 8.051679e-05 0.0656038377
## hlr_dbooks_b4_corrected_0 0.0713103182 0.2654452985 8.967831e-10 0.0004266339
## hlr_dbooks_b4_corrected_1 0.0009757373 0.1398405431 7.465748e-04 0.0052426791
##                                  Dim 5
## hlr_books_b4_corrected_0  1.315617e-01
## hlr_books_b4_corrected_1  6.543545e-03
## hlr_books_b4_corrected_2  8.074619e-02
## hlr_books_b4_corrected_3  4.047354e-02
## hlr_books_b4_corrected_4  2.901348e-02
## hlr_books_b4_corrected_5  2.851275e-03
## hlr_books_b4_corrected_6  2.431798e-05
## hlr_books_b4_corrected_7  9.117812e-04
## hlr_dbooks_b4_corrected_0 1.754276e-02
## hlr_dbooks_b4_corrected_1 1.011604e-01

Se uma categoria de variável é bem representada por duas dimensões, a soma do cos2 é próxima de um. Para alguns dos itens de linha, são necessárias mais de 2 dimensões para representar perfeitamente os dados.

!!! OS COSSENOS SAO MUITO BAIXOS!!

fviz_mca_var(res.mca_pref, col.var = "cos2",
             gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"), 
             repel = TRUE, # Avoid text overlapping
             ggtheme = theme_minimal())
## Warning: ggrepel: 35 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps

fviz_cos2(res.mca_pref, choice = "var", axes = 1:2)

head(round(var_pref$contrib,2), 49)
##                              Dim 1 Dim 2 Dim 3 Dim 4 Dim 5
## hlr_books_b4_corrected_0      0.55  5.01  0.04  0.76  6.91
## hlr_books_b4_corrected_1      1.45  1.33  0.06  0.55  0.26
## hlr_books_b4_corrected_2      0.67  0.52  0.42  0.16  2.68
## hlr_books_b4_corrected_3      0.07  3.35  0.01  0.45  1.87
## hlr_books_b4_corrected_4      0.34  0.14  0.02  0.00  1.51
## hlr_books_b4_corrected_5      3.78  0.54  0.50  9.28  0.15
## hlr_books_b4_corrected_6      0.18  0.00  0.07  0.58  0.00
## hlr_books_b4_corrected_7      9.47  1.78  0.00  3.15  0.05
## hlr_dbooks_b4_corrected_0     0.95  4.80  0.00  0.01  0.42
## hlr_dbooks_b4_corrected_1     0.02  3.93  0.02  0.19  3.76
## hlr_dbooks_b4_corrected_2     0.00  3.17  0.13  0.02  3.12
## hlr_dbooks_b4_corrected_3     0.04  1.88  0.24  0.20  1.81
## hlr_dbooks_b4_corrected_4     3.07  0.07  1.73  0.09  0.27
## hlr_dbooks_b4_corrected_5     2.49  0.11  0.62 12.79  1.08
## hlr_dbooks_b4_corrected_6     0.96  0.03 20.47  0.47  0.01
## hlr_dbooks_b4_corrected_7     4.98  0.93  2.36  1.91  0.01
## hlr_games_b4_corrected_0      0.94  7.42  0.03  0.75  6.06
## hlr_games_b4_corrected_1      0.92  0.04  0.12  0.00  5.16
## hlr_games_b4_corrected_2      0.11  4.92  0.06  0.56  4.00
## hlr_games_b4_corrected_3      0.31  2.74  0.21  1.07  1.81
## hlr_games_b4_corrected_4      5.67  0.22  1.06  4.26  0.19
## hlr_games_b4_corrected_5      4.94  0.64 10.66  0.26  0.83
## hlr_games_b4_corrected_6      0.81  0.01  0.68  0.09  0.37
## hlr_games_b4_corrected_7      4.48  3.39  4.63 16.99  0.24
## hlr_dgames_b4_corrected_0     0.89  4.97  0.00  0.16  3.23
## hlr_dgames_b4_corrected_1     0.38  0.20  0.01  0.06  7.43
## hlr_dgames_b4_corrected_2     0.64  4.47  0.02  0.13  5.35
## hlr_dgames_b4_corrected_3     0.62  3.47  0.25  0.11  3.18
## hlr_dgames_b4_corrected_4     1.16  0.04  0.18  0.59  0.05
## hlr_dgames_b4_corrected_5     5.49  0.55  0.12 17.61  0.19
## hlr_dgames_b4_corrected_6     1.81  0.47 27.72  0.56  0.32
## hlr_dgames_b4_corrected_7     5.42  2.38  6.33 13.31  0.06
## hlr_ad_books_b4_corrected_0   0.96  6.26  0.07  0.98  5.59
## hlr_ad_books_b4_corrected_1   1.25  0.38  0.01  0.16  2.58
## hlr_ad_books_b4_corrected_2   0.77  0.01  0.50  0.03  1.89
## hlr_ad_books_b4_corrected_3   0.02  1.21  0.04  0.12  0.29
## hlr_ad_books_b4_corrected_4   0.01  3.12  0.02  0.29  3.47
## hlr_ad_books_b4_corrected_5   0.34  2.80  0.17  0.03  0.67
## hlr_ad_books_b4_corrected_6   1.08  0.11  0.88  0.00  0.87
## hlr_ad_books_b4_corrected_7  10.36  1.12  0.05  0.08  0.24
## hlr_ad_dbooks_b4_corrected_0  1.67  5.70  0.12  0.06  1.07
## hlr_ad_dbooks_b4_corrected_1  0.04  2.73  0.03  0.01  8.20
## hlr_ad_dbooks_b4_corrected_2  0.17  0.51  0.66  0.83  0.82
## hlr_ad_dbooks_b4_corrected_3  0.03  4.26  0.06  0.18  3.03
## hlr_ad_dbooks_b4_corrected_4  0.05  0.60  0.01  0.00  1.33
## hlr_ad_dbooks_b4_corrected_5  0.82  0.55  0.08  0.12  1.84
## hlr_ad_dbooks_b4_corrected_6  3.43  0.70  0.08  2.76  0.58
## hlr_ad_dbooks_b4_corrected_7  9.10  0.23  0.82  6.59  0.43
## hlr_ad_news_b4_corrected_0    0.81  0.93  0.05  0.02  0.42

15 principais categorias de variáveis que contribuem para as dimensões:

# Contributions of rows to dimension 1
fviz_contrib(res.mca_pref, choice = "var", axes = 1, top = 15)

# Contributions of rows to dimension 2
fviz_contrib(res.mca_pref, choice = "var", axes = 2, top = 15)

fviz_contrib(res.mca_pref, choice = "var", axes = 1:2, top = 15)

fviz_mca_var(res.mca_pref, alpha.var="contrib",
             repel = TRUE,
             ggtheme = theme_minimal())
## Warning: ggrepel: 35 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps

##Gráfico de indivíduos Resultados

lista contendo as coordenadas, o cos2 e as contribuições dos indivíduos:

ind_pref <- get_mca_ind(res.mca_pref)
ind_pref
## Multiple Correspondence Analysis Results for individuals
##  ===================================================
##   Name       Description                       
## 1 "$coord"   "Coordinates for the individuals" 
## 2 "$cos2"    "Cos2 for the individuals"        
## 3 "$contrib" "contributions of the individuals"

colorir os indivíduos por seus valores de cos2:

fviz_mca_ind(res.mca_pref, col.ind = "cos2", 
             gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"),
             repel = TRUE, # Avoid text overlapping (slow if many points)
             ggtheme = theme_minimal())
## Warning: ggrepel: 562 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps

# Cos2 of individuals
fviz_cos2(res.mca_pref, choice = "ind", axes = 1:2, top = 20)

# Contribution of individuals to the dimensions
fviz_contrib(res.mca_pref, choice = "ind", axes = 1:2, top = 20)

POS-PANDEMIA

db_bloco_2_posf <- as.data.frame(lapply(db_bloco_2_pos, as.factor))
summary(db_bloco_2_posf)
##  hlr_books_since_corrected hlr_dbooks_since_corrected hlr_games_since_corrected
##  2      :248               0      :259                0: 58                    
##  1      :147               1      :227                1:363                    
##  3      : 90               2      : 82                2:150                    
##  7      : 38               3      : 20                3: 20                    
##  0      : 33               7      : 16                4: 13                    
##  4      : 31               5      :  5                5:  3                    
##  (Other): 28               (Other):  6                7:  8                    
##  hlr_dgames_since_corrected hlr_ad_books_since_corrected
##  1      :346                2      :178                 
##  0      :144                1      :158                 
##  2      : 94                3      : 75                 
##  3      : 15                7      : 61                 
##  7      :  7                0      : 51                 
##  4      :  5                4      : 51                 
##  (Other):  4                (Other): 41                 
##  hlr_ad_dbooks_since_corrected hlr_ad_news_since_corrected
##  0      :269                   0      :471                
##  1      :200                   1      :129                
##  2      : 67                   2      :  6                
##  3      : 38                   3      :  3                
##  4      : 15                   5      :  2                
##  7      : 15                   7      :  2                
##  (Other): 11                   (Other):  2
for (i in 1:7) {
  plot(db_bloco_2_posf[,i], main=colnames(db_bloco_2_posf)[i],
       ylab = "Count", col="steelblue", las = 2)
  }

MCA(db_bloco_2_posf,ncp = 5, graph = TRUE) 

## **Results of the Multiple Correspondence Analysis (MCA)**
## The analysis was performed on 615 individuals, described by 7 variables
## *The results are available in the following objects:
## 
##    name              description                       
## 1  "$eig"            "eigenvalues"                     
## 2  "$var"            "results for the variables"       
## 3  "$var$coord"      "coord. of the categories"        
## 4  "$var$cos2"       "cos2 for the categories"         
## 5  "$var$contrib"    "contributions of the categories" 
## 6  "$var$v.test"     "v-test for the categories"       
## 7  "$ind"            "results for the individuals"     
## 8  "$ind$coord"      "coord. for the individuals"      
## 9  "$ind$cos2"       "cos2 for the individuals"        
## 10 "$ind$contrib"    "contributions of the individuals"
## 11 "$call"           "intermediate results"            
## 12 "$call$marge.col" "weights of columns"              
## 13 "$call$marge.li"  "weights of rows"
res.mca_posf <- MCA(db_bloco_2_posf, graph = FALSE)
print(res.mca_posf)
## **Results of the Multiple Correspondence Analysis (MCA)**
## The analysis was performed on 615 individuals, described by 7 variables
## *The results are available in the following objects:
## 
##    name              description                       
## 1  "$eig"            "eigenvalues"                     
## 2  "$var"            "results for the variables"       
## 3  "$var$coord"      "coord. of the categories"        
## 4  "$var$cos2"       "cos2 for the categories"         
## 5  "$var$contrib"    "contributions of the categories" 
## 6  "$var$v.test"     "v-test for the categories"       
## 7  "$ind"            "results for the individuals"     
## 8  "$ind$coord"      "coord. for the individuals"      
## 9  "$ind$cos2"       "cos2 for the individuals"        
## 10 "$ind$contrib"    "contributions of the individuals"
## 11 "$call"           "intermediate results"            
## 12 "$call$marge.col" "weights of columns"              
## 13 "$call$marge.li"  "weights of rows"

#Visualização e interpretação Autovalores/variâncias retidos por cada dimensão (eixo)

eig.val_posf <- get_eigenvalue(res.mca_posf)
eig.val_posf
##        eigenvalue variance.percent cumulative.variance.percent
## Dim.1  0.47370292        6.9081676                    6.908168
## Dim.2  0.38267025        5.5806078                   12.488775
## Dim.3  0.35167858        5.1286460                   17.617421
## Dim.4  0.29546149        4.3088134                   21.926235
## Dim.5  0.25488865        3.7171262                   25.643361
## Dim.6  0.24729632        3.6064047                   29.249766
## Dim.7  0.23008821        3.3554531                   32.605219
## Dim.8  0.22043722        3.2147095                   35.819928
## Dim.9  0.20865380        3.0428679                   38.862796
## Dim.10 0.19739943        2.8787416                   41.741538
## Dim.11 0.19082340        2.7828412                   44.524379
## Dim.12 0.18543843        2.7043104                   47.228689
## Dim.13 0.17743097        2.5875349                   49.816224
## Dim.14 0.17040256        2.4850373                   52.301262
## Dim.15 0.16622364        2.4240948                   54.725356
## Dim.16 0.15910590        2.3202944                   57.045651
## Dim.17 0.15499543        2.2603500                   59.306001
## Dim.18 0.14881820        2.1702654                   61.476266
## Dim.19 0.14800896        2.1584640                   63.634730
## Dim.20 0.14535492        2.1197593                   65.754489
## Dim.21 0.13778997        2.0094371                   67.763927
## Dim.22 0.13482158        1.9661480                   69.730075
## Dim.23 0.13115241        1.9126393                   71.642714
## Dim.24 0.12803032        1.8671088                   73.509823
## Dim.25 0.12051779        1.7575512                   75.267374
## Dim.26 0.11756371        1.7144708                   76.981845
## Dim.27 0.11336541        1.6532455                   78.635090
## Dim.28 0.11057074        1.6124899                   80.247580
## Dim.29 0.10402357        1.5170104                   81.764590
## Dim.30 0.10206046        1.4883817                   83.252972
## Dim.31 0.09933572        1.4486459                   84.701618
## Dim.32 0.09047224        1.3193868                   86.021005
## Dim.33 0.08723342        1.2721541                   87.293159
## Dim.34 0.08563467        1.2488390                   88.541998
## Dim.35 0.08061983        1.1757059                   89.717704
## Dim.36 0.07826364        1.1413447                   90.859049
## Dim.37 0.07202398        1.0503497                   91.909398
## Dim.38 0.06957675        1.0146609                   92.924059
## Dim.39 0.06689337        0.9755282                   93.899587
## Dim.40 0.06587312        0.9606497                   94.860237
## Dim.41 0.06278948        0.9156799                   95.775917
## Dim.42 0.05335250        0.7780573                   96.553974
## Dim.43 0.04688914        0.6837999                   97.237774
## Dim.44 0.04557909        0.6646950                   97.902469
## Dim.45 0.04217102        0.6149941                   98.517463
## Dim.46 0.03827680        0.5582033                   99.075667
## Dim.47 0.03649084        0.5321581                   99.607825
## Dim.48 0.02689202        0.3921753                  100.000000

Porcentagens de inércia explicadas por cada dimensão MCA

fviz_screeplot(res.mca_posf, addlabels = TRUE, ylim = c(0, 45))

Biplot de indivíduos e categorias de variáveis:

fviz_mca_biplot(res.mca_posf, 
               repel = TRUE, # Avoid text overlapping (slow if many point)
               ggtheme = theme_minimal())
## Warning: ggrepel: 587 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps
## Warning: ggrepel: 29 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps

#Gráfico de variáveis #Resultados Usada para extrair os resultados para categorias de variáveis. Esta função retorna uma lista contendo as coordenadas, o cos2 e a contribuição das categorias de variáveis:

var_posf <- get_mca_var(res.mca_posf)
var_posf
## Multiple Correspondence Analysis Results for variables
##  ===================================================
##   Name       Description                  
## 1 "$coord"   "Coordinates for categories" 
## 2 "$cos2"    "Cos2 for categories"        
## 3 "$contrib" "contributions of categories"
# Coordinates
var_posf$coord
##                                         Dim 1       Dim 2       Dim 3
## hlr_books_since_corrected_0     -0.9475239349 -2.22641434  0.65303113
## hlr_books_since_corrected_1     -0.4288280601 -0.23460592 -0.06917895
## hlr_books_since_corrected_2     -0.1775201127  0.15767977  0.01430131
## hlr_books_since_corrected_3      0.0323875765  0.79582224 -0.21070010
## hlr_books_since_corrected_4      0.3177380826  1.07709815 -0.06973911
## hlr_books_since_corrected_5      2.0312557314  0.31099137  2.61094249
## hlr_books_since_corrected_6      0.9774488867 -0.09545921  0.03608648
## hlr_books_since_corrected_7      2.2236363784 -1.02028641 -0.74437039
## hlr_dbooks_since_corrected_0    -0.2934011206 -0.47833054  0.09673767
## hlr_dbooks_since_corrected_1    -0.0951475392  0.23055673 -0.08762944
## hlr_dbooks_since_corrected_2     0.1267464308  0.88995604 -0.01774931
## hlr_dbooks_since_corrected_3     0.0294740269  0.95173542 -0.43400877
## hlr_dbooks_since_corrected_4     2.7093997584  0.63788049  2.89995486
## hlr_dbooks_since_corrected_5     4.0398799497 -0.15779485  6.50464637
## hlr_dbooks_since_corrected_6    -0.0108165491  0.98750991 -0.31015270
## hlr_dbooks_since_corrected_7     3.4744580044 -1.51233998 -2.40814384
## hlr_games_since_corrected_0     -0.7653817766 -1.62210308  0.43037952
## hlr_games_since_corrected_1     -0.1868521152  0.02545536 -0.04521910
## hlr_games_since_corrected_2      0.1828750247  0.47300638 -0.13674520
## hlr_games_since_corrected_3      0.2802856599  1.78447567 -0.35134192
## hlr_games_since_corrected_4      2.7335182432  0.49974484  3.60517793
## hlr_games_since_corrected_5      1.3805802632 -1.38622149  0.96410861
## hlr_games_since_corrected_7      4.9381270032 -3.01710050 -3.84606239
## hlr_dgames_since_corrected_0    -0.3790651140 -0.78576990  0.25036962
## hlr_dgames_since_corrected_1    -0.1522920023  0.10683892 -0.07705470
## hlr_dgames_since_corrected_2     0.4091299468  0.64580653 -0.16838964
## hlr_dgames_since_corrected_3     0.4767017356  1.97507659 -0.53542172
## hlr_dgames_since_corrected_4     1.1065464770  1.15606573  2.23004647
## hlr_dgames_since_corrected_5     2.6464321319  0.02713979  3.80581275
## hlr_dgames_since_corrected_6     5.9080885608 -0.09130865 11.05754368
## hlr_dgames_since_corrected_7     5.5754134860 -2.82847929 -3.77275630
## hlr_ad_books_since_corrected_0  -0.8048747165 -1.67790884  0.46775837
## hlr_ad_books_since_corrected_1  -0.3859758616 -0.13872397 -0.07002859
## hlr_ad_books_since_corrected_2  -0.2470224634  0.14326623 -0.09604665
## hlr_ad_books_since_corrected_3   0.0002960899  0.58474111  0.09590922
## hlr_ad_books_since_corrected_4   0.1945186416  0.86421057 -0.30108613
## hlr_ad_books_since_corrected_5   0.8872894866  0.49988634  0.14041360
## hlr_ad_books_since_corrected_6   0.5257570732  0.39470914 -0.47988748
## hlr_ad_books_since_corrected_7   1.7467276167 -0.40060568  0.30321489
## hlr_ad_dbooks_since_corrected_0 -0.3662580750 -0.58252149  0.13655592
## hlr_ad_dbooks_since_corrected_1 -0.0854786546  0.41319583 -0.10368650
## hlr_ad_dbooks_since_corrected_2  0.2440648538  0.82653226 -0.33754485
## hlr_ad_dbooks_since_corrected_3  0.3388352102  0.75824022 -0.50530790
## hlr_ad_dbooks_since_corrected_4  0.4952304707  0.37543604 -0.69112352
## hlr_ad_dbooks_since_corrected_5  1.9684910252 -0.10955787  0.52069074
## hlr_ad_dbooks_since_corrected_6  4.1521102257 -2.88513439 -3.49744026
## hlr_ad_dbooks_since_corrected_7  3.2383156498 -0.23038477  3.10218280
## hlr_ad_news_since_corrected_0   -0.1070340081 -0.17522998  0.03720093
## hlr_ad_news_since_corrected_1    0.1919698919  0.56704993 -0.06652505
## hlr_ad_news_since_corrected_2    1.1911412583  1.50528193 -0.03578463
## hlr_ad_news_since_corrected_3    1.0015184658  1.52305488 -0.80411618
## hlr_ad_news_since_corrected_4    0.0209520863  1.20766125 -0.82189953
## hlr_ad_news_since_corrected_5    5.9248748021 -2.69378120 -4.71009744
## hlr_ad_news_since_corrected_6    0.0336528582  1.04854115 -0.81259553
## hlr_ad_news_since_corrected_7    1.7965721279 -0.54280824  2.37091929
##                                       Dim 4        Dim 5
## hlr_books_since_corrected_0      1.68299093 -0.317448734
## hlr_books_since_corrected_1     -0.47729957  0.057508621
## hlr_books_since_corrected_2     -0.13161744  0.004543236
## hlr_books_since_corrected_3      0.32968644 -0.258236557
## hlr_books_since_corrected_4      1.10721103  0.924599469
## hlr_books_since_corrected_5      0.08588533 -0.447924037
## hlr_books_since_corrected_6     -0.14018635  0.925095208
## hlr_books_since_corrected_7     -0.41430459 -0.331036596
## hlr_dbooks_since_corrected_0     0.05125447  0.074005206
## hlr_dbooks_since_corrected_1    -0.48224740  0.002279481
## hlr_dbooks_since_corrected_2     0.77738968 -0.195361412
## hlr_dbooks_since_corrected_3     1.47925197 -0.219321990
## hlr_dbooks_since_corrected_4     1.15790067  6.712212370
## hlr_dbooks_since_corrected_5    -0.94781810 -3.843162931
## hlr_dbooks_since_corrected_6     0.24073515 -1.021603399
## hlr_dbooks_since_corrected_7     0.15564221 -0.304283935
## hlr_games_since_corrected_0      1.18518535 -0.216239002
## hlr_games_since_corrected_1     -0.45763481  0.097300010
## hlr_games_since_corrected_2      0.41238456 -0.263667416
## hlr_games_since_corrected_3      1.63133990  0.105777424
## hlr_games_since_corrected_4      0.15993332 -0.282617422
## hlr_games_since_corrected_5      0.47254615  6.366789413
## hlr_games_since_corrected_7     -0.07507087 -0.096227435
## hlr_dgames_since_corrected_0     0.43823489 -0.004378825
## hlr_dgames_since_corrected_1    -0.43790958  0.093342220
## hlr_dgames_since_corrected_2     0.51021795 -0.585916634
## hlr_dgames_since_corrected_3     1.96575606 -0.333927102
## hlr_dgames_since_corrected_4     1.47086089  1.394015485
## hlr_dgames_since_corrected_5     1.81605268 12.993636360
## hlr_dgames_since_corrected_6    -1.47740312 -5.224087320
## hlr_dgames_since_corrected_7     0.41892265  0.844291059
## hlr_ad_books_since_corrected_0   1.21508668 -0.228496695
## hlr_ad_books_since_corrected_1  -0.74157351  0.045976693
## hlr_ad_books_since_corrected_2  -0.05971043  0.031165338
## hlr_ad_books_since_corrected_3   0.37068260 -0.290829664
## hlr_ad_books_since_corrected_4   0.82048956 -0.066520718
## hlr_ad_books_since_corrected_5   0.59562425  2.371281307
## hlr_ad_books_since_corrected_6   0.83913809 -0.124427483
## hlr_ad_books_since_corrected_7  -0.53878473 -0.422257400
## hlr_ad_dbooks_since_corrected_0  0.11538048  0.043454317
## hlr_ad_dbooks_since_corrected_1 -0.57617395  0.038185996
## hlr_ad_dbooks_since_corrected_2  0.59639147 -0.360435456
## hlr_ad_dbooks_since_corrected_3  0.92632207  0.021077512
## hlr_ad_dbooks_since_corrected_4  1.25189657  0.140597577
## hlr_ad_dbooks_since_corrected_5  0.14096982 -1.685198079
## hlr_ad_dbooks_since_corrected_6 -1.03350548 -0.039932024
## hlr_ad_dbooks_since_corrected_7 -0.43948271  0.924598043
## hlr_ad_news_since_corrected_0    0.10205994 -0.025472904
## hlr_ad_news_since_corrected_1   -0.52083297  0.091067395
## hlr_ad_news_since_corrected_2    2.00742474  0.376864427
## hlr_ad_news_since_corrected_3    2.24913489 -0.961440905
## hlr_ad_news_since_corrected_4    1.38259671  0.161773747
## hlr_ad_news_since_corrected_5    0.87680565 -0.693209418
## hlr_ad_news_since_corrected_6    0.52701823  0.346256935
## hlr_ad_news_since_corrected_7   -1.66897841  0.875784148
var_posf$cos2
##                                        Dim 1        Dim 2        Dim 3
## hlr_books_since_corrected_0     5.090628e-02 2.810625e-01 2.418014e-02
## hlr_books_since_corrected_1     5.776142e-02 1.728819e-02 1.503209e-03
## hlr_books_since_corrected_2     2.129515e-02 1.680109e-02 1.382093e-04
## hlr_books_since_corrected_3     1.798209e-04 1.085714e-01 7.610491e-03
## hlr_books_since_corrected_4     5.359045e-03 6.158280e-02 2.581675e-04
## hlr_books_since_corrected_5     8.909966e-02 2.088544e-03 1.472114e-01
## hlr_books_since_corrected_6     2.388516e-02 2.278115e-04 3.255585e-05
## hlr_books_since_corrected_7     3.256382e-01 6.855703e-02 3.649102e-02
## hlr_dbooks_since_corrected_0    6.262869e-02 1.664585e-01 6.808337e-03
## hlr_dbooks_since_corrected_1    5.296503e-03 3.109924e-02 4.492563e-03
## hlr_dbooks_since_corrected_2    2.471486e-03 1.218495e-01 4.846741e-05
## hlr_dbooks_since_corrected_3    2.920061e-05 3.044707e-02 6.331550e-03
## hlr_dbooks_since_corrected_4    4.805792e-02 2.663774e-03 5.505557e-02
## hlr_dbooks_since_corrected_5    1.337757e-01 2.040919e-04 3.468068e-01
## hlr_dbooks_since_corrected_6    3.817218e-07 3.181650e-03 3.138489e-04
## hlr_dbooks_since_corrected_7    3.224536e-01 6.109308e-02 1.549024e-01
## hlr_games_since_corrected_0     6.099989e-02 2.739868e-01 1.928750e-02
## hlr_games_since_corrected_1     5.029237e-02 9.333928e-04 2.945438e-03
## hlr_games_since_corrected_2     1.078815e-02 7.217259e-02 6.032016e-03
## hlr_games_since_corrected_3     2.640674e-03 1.070371e-01 4.149282e-03
## hlr_games_since_corrected_4     1.613581e-01 5.393162e-03 2.806728e-01
## hlr_games_since_corrected_5     9.343146e-03 9.419657e-03 4.556399e-03
## hlr_games_since_corrected_7     3.213852e-01 1.199723e-01 1.949548e-01
## hlr_dgames_since_corrected_0    4.393081e-02 1.887697e-01 1.916483e-02
## hlr_dgames_since_corrected_1    2.983170e-02 1.468192e-02 7.636987e-03
## hlr_dgames_since_corrected_2    3.020040e-02 7.524800e-02 5.115886e-03
## hlr_dgames_since_corrected_3    5.681114e-03 9.752319e-02 7.166910e-03
## hlr_dgames_since_corrected_4    1.003644e-02 1.095482e-02 4.076317e-02
## hlr_dgames_since_corrected_5    2.285025e-02 2.403160e-06 4.725680e-02
## hlr_dgames_since_corrected_6    1.138842e-01 2.720153e-05 3.989210e-01
## hlr_dgames_since_corrected_7    3.578892e-01 9.210866e-02 1.638747e-01
## hlr_ad_books_since_corrected_0  5.857977e-02 2.545821e-01 1.978492e-02
## hlr_ad_books_since_corrected_1  5.150640e-02 6.653404e-03 1.695476e-03
## hlr_ad_books_since_corrected_2  2.485487e-02 8.360384e-03 3.757534e-03
## hlr_ad_books_since_corrected_3  1.217628e-08 4.748919e-02 1.277580e-03
## hlr_ad_books_since_corrected_4  3.421476e-03 6.753520e-02 8.197333e-03
## hlr_ad_books_since_corrected_5  2.920779e-02 9.270657e-03 7.314529e-04
## hlr_ad_books_since_corrected_6  8.812063e-03 4.966629e-03 7.341523e-03
## hlr_ad_books_since_corrected_7  3.359467e-01 1.767072e-02 1.012328e-02
## hlr_ad_dbooks_since_corrected_0 1.042919e-01 2.638154e-01 1.449764e-02
## hlr_ad_dbooks_since_corrected_1 3.521253e-03 8.227990e-02 5.181152e-03
## hlr_ad_dbooks_since_corrected_2 7.282906e-03 8.352450e-02 1.393020e-02
## hlr_ad_dbooks_since_corrected_3 7.561098e-03 3.786356e-02 1.681589e-02
## hlr_ad_dbooks_since_corrected_4 6.131330e-03 3.523806e-03 1.194129e-02
## hlr_ad_dbooks_since_corrected_5 4.461299e-02 1.381916e-04 3.121434e-03
## hlr_ad_dbooks_since_corrected_6 1.128643e-01 5.449427e-02 8.007914e-02
## hlr_ad_dbooks_since_corrected_7 2.621672e-01 1.326929e-03 2.405885e-01
## hlr_ad_news_since_corrected_0   3.747158e-02 1.004327e-01 4.526537e-03
## hlr_ad_news_since_corrected_1   9.781820e-03 8.534853e-02 1.174692e-03
## hlr_ad_news_since_corrected_2   1.397850e-02 2.232388e-02 1.261616e-05
## hlr_ad_news_since_corrected_3   4.916859e-03 1.137106e-02 3.169622e-03
## hlr_ad_news_since_corrected_4   7.149673e-07 2.375319e-03 1.100194e-03
## hlr_ad_news_since_corrected_5   1.145323e-01 2.367523e-02 7.238179e-02
## hlr_ad_news_since_corrected_6   1.844487e-06 1.790617e-03 1.075426e-03
## hlr_ad_news_since_corrected_7   1.053074e-02 9.613076e-04 1.834016e-02
##                                        Dim 4        Dim 5
## hlr_books_since_corrected_0     1.606033e-01 5.713973e-03
## hlr_books_since_corrected_1     7.155724e-02 1.038813e-03
## hlr_books_since_corrected_2     1.170611e-02 1.394814e-05
## hlr_books_since_corrected_3     1.863311e-02 1.143191e-02
## hlr_books_since_corrected_4     6.507432e-02 4.537913e-02
## hlr_books_since_corrected_5     1.592886e-04 4.332670e-03
## hlr_books_since_corrected_6     4.913053e-04 2.139503e-02
## hlr_books_since_corrected_7     1.130439e-02 7.217051e-03
## hlr_dbooks_since_corrected_0    1.911231e-03 3.984504e-03
## hlr_dbooks_since_corrected_1    1.360611e-01 3.039946e-06
## hlr_dbooks_since_corrected_2    9.297457e-02 5.871705e-03
## hlr_dbooks_since_corrected_3    7.355248e-02 1.616878e-03
## hlr_dbooks_since_corrected_4    8.777309e-03 2.949512e-01
## hlr_dbooks_since_corrected_5    7.363600e-03 1.210648e-01
## hlr_dbooks_since_corrected_6    1.890813e-04 3.405134e-03
## hlr_dbooks_since_corrected_7    6.470650e-04 2.473154e-03
## hlr_games_since_corrected_0     1.462667e-01 4.869012e-03
## hlr_games_since_corrected_1     3.016784e-01 1.363741e-02
## hlr_games_since_corrected_2     5.485839e-02 2.242597e-02
## hlr_games_since_corrected_3     8.945445e-02 3.760963e-04
## hlr_games_since_corrected_4     5.523633e-04 1.724824e-03
## hlr_games_since_corrected_5     1.094607e-03 1.987059e-01
## hlr_games_since_corrected_7     7.427527e-05 1.220391e-04
## hlr_dgames_since_corrected_0    5.871587e-02 5.862148e-06
## hlr_dgames_since_corrected_1    2.466566e-01 1.120676e-02
## hlr_dgames_since_corrected_2    4.696795e-02 6.193866e-02
## hlr_dgames_since_corrected_3    9.660492e-02 2.787683e-03
## hlr_dgames_since_corrected_4    1.773305e-02 1.592852e-02
## hlr_dgames_since_corrected_5    1.076035e-02 5.508469e-01
## hlr_dgames_since_corrected_6    7.121436e-03 8.904107e-02
## hlr_dgames_since_corrected_7    2.020515e-03 8.206894e-03
## hlr_ad_books_since_corrected_0  1.335075e-01 4.721184e-03
## hlr_ad_books_since_corrected_1  1.901294e-01 7.308300e-04
## hlr_ad_books_since_corrected_2  1.452242e-03 3.956236e-04
## hlr_ad_books_since_corrected_3  1.908411e-02 1.174749e-02
## hlr_ad_books_since_corrected_4  6.087475e-02 4.001335e-04
## hlr_ad_books_since_corrected_5  1.316172e-02 2.086095e-01
## hlr_ad_books_since_corrected_6  2.244782e-02 4.935600e-04
## hlr_ad_books_since_corrected_7  3.196323e-02 1.963245e-02
## hlr_ad_dbooks_since_corrected_0 1.035001e-02 1.468054e-03
## hlr_ad_dbooks_since_corrected_1 1.599886e-01 7.027327e-04
## hlr_ad_dbooks_since_corrected_2 4.348676e-02 1.588361e-02
## hlr_ad_dbooks_since_corrected_3 5.651085e-02 2.925812e-05
## hlr_ad_dbooks_since_corrected_4 3.918113e-02 4.941920e-04
## hlr_ad_dbooks_since_corrected_5 2.287951e-04 3.269613e-02
## hlr_ad_dbooks_since_corrected_6 6.992691e-03 1.043906e-05
## hlr_ad_dbooks_since_corrected_7 4.828626e-03 2.137204e-02
## hlr_ad_news_since_corrected_0   3.406976e-02 2.122342e-03
## hlr_ad_news_since_corrected_1   7.200297e-02 2.201300e-03
## hlr_ad_news_since_corrected_2   3.970201e-02 1.399279e-03
## hlr_ad_news_since_corrected_3   2.479710e-02 4.531219e-03
## hlr_ad_news_since_corrected_4   3.113312e-03 4.262336e-05
## hlr_ad_news_since_corrected_5   2.508281e-03 1.567828e-03
## hlr_ad_news_since_corrected_6   4.523587e-04 1.952669e-04
## hlr_ad_news_since_corrected_7   9.088055e-03 2.502440e-03
var_posf$contrib
##                                        Dim 1        Dim 2        Dim 3
## hlr_books_since_corrected_0     1.452831e+00 9.929516e+00 9.295283e-01
## hlr_books_since_corrected_1     1.325576e+00 4.911311e-01 4.646716e-02
## hlr_books_since_corrected_2     3.832371e-01 3.742879e-01 3.350304e-03
## hlr_books_since_corrected_3     4.629352e-03 3.460006e+00 2.639082e-01
## hlr_books_since_corrected_4     1.534691e-01 2.183104e+00 9.958533e-03
## hlr_books_since_corrected_5     2.630228e+00 7.632067e-02 5.853544e+00
## hlr_books_since_corrected_6     7.027489e-01 8.297153e-03 1.290213e-03
## hlr_books_since_corrected_7     9.213654e+00 2.401209e+00 1.390730e+00
## hlr_dbooks_since_corrected_0    1.093312e+00 3.597147e+00 1.600929e-01
## hlr_dbooks_since_corrected_1    1.007724e-01 7.324595e-01 1.151349e-01
## hlr_dbooks_since_corrected_2    6.459607e-02 3.942331e+00 1.706310e-03
## hlr_dbooks_since_corrected_3    8.519806e-04 1.099676e+00 2.488330e-01
## hlr_dbooks_since_corrected_4    1.439882e+00 9.879632e-02 2.221894e+00
## hlr_dbooks_since_corrected_5    4.001545e+00 7.557146e-03 1.397328e+01
## hlr_dbooks_since_corrected_6    1.147435e-05 1.183900e-01 1.270756e-02
## hlr_dbooks_since_corrected_7    9.471416e+00 2.221370e+00 6.128663e+00
## hlr_games_since_corrected_0     1.666115e+00 9.263754e+00 7.095975e-01
## hlr_games_since_corrected_1     6.214747e-01 1.427799e-02 4.902656e-02
## hlr_games_since_corrected_2     2.459919e-01 2.037171e+00 1.852663e-01
## hlr_games_since_corrected_3     7.704643e-02 3.865925e+00 1.630688e-01
## hlr_games_since_corrected_4     4.763302e+00 1.970798e-01 1.116035e+01
## hlr_games_since_corrected_5     2.803918e-01 3.499360e-01 1.841849e-01
## hlr_games_since_corrected_7     9.566108e+00 4.420503e+00 7.816342e+00
## hlr_dgames_since_corrected_0    1.014637e+00 5.397037e+00 5.962202e-01
## hlr_dgames_since_corrected_1    3.935057e-01 2.397382e-01 1.356923e-01
## hlr_dgames_since_corrected_2    7.715626e-01 2.379769e+00 1.760514e-01
## hlr_dgames_since_corrected_3    1.671497e-01 3.551905e+00 2.840300e-01
## hlr_dgames_since_corrected_4    3.002134e-01 4.056367e-01 1.642399e+00
## hlr_dgames_since_corrected_5    6.868664e-01 8.942218e-05 1.913400e+00
## hlr_dgames_since_corrected_6    3.423298e+00 1.012176e-03 1.615207e+01
## hlr_dgames_since_corrected_7    1.067021e+01 3.399431e+00 6.581069e+00
## hlr_ad_books_since_corrected_0  1.620121e+00 8.715836e+00 7.370454e-01
## hlr_ad_books_since_corrected_1  1.154245e+00 1.845705e-01 5.117865e-02
## hlr_ad_books_since_corrected_2  5.326154e-01 2.217736e-01 1.084589e-01
## hlr_ad_books_since_corrected_3  3.224253e-07 1.556649e+00 4.556830e-02
## hlr_ad_books_since_corrected_4  9.462664e-02 2.312126e+00 3.053744e-01
## hlr_ad_books_since_corrected_5  8.493254e-01 3.337086e-01 2.864982e-02
## hlr_ad_books_since_corrected_6  2.575400e-01 1.796843e-01 2.890103e-01
## hlr_ad_books_since_corrected_7  9.126431e+00 5.942459e-01 3.704348e-01
## hlr_ad_dbooks_since_corrected_0 1.769487e+00 5.540875e+00 3.313250e-01
## hlr_ad_dbooks_since_corrected_1 7.165824e-02 2.072736e+00 1.420219e-01
## hlr_ad_dbooks_since_corrected_2 1.957069e-01 2.778411e+00 5.042184e-01
## hlr_ad_dbooks_since_corrected_3 2.139348e-01 1.326171e+00 6.408800e-01
## hlr_ad_dbooks_since_corrected_4 1.803959e-01 1.283410e-01 4.732423e-01
## hlr_ad_dbooks_since_corrected_5 1.330104e+00 5.100202e-03 1.253541e-01
## hlr_ad_dbooks_since_corrected_6 3.381571e+00 2.021130e+00 3.231778e+00
## hlr_ad_dbooks_since_corrected_7 7.713481e+00 4.832824e-02 9.534698e+00
## hlr_ad_news_since_corrected_0   2.645972e-01 8.778895e-01 4.305360e-02
## hlr_ad_news_since_corrected_1   2.331185e-01 2.517877e+00 3.770865e-02
## hlr_ad_news_since_corrected_2   4.174443e-01 8.252568e-01 5.074874e-04
## hlr_ad_news_since_corrected_3   1.475570e-01 4.224298e-01 1.281267e-01
## hlr_ad_news_since_corrected_4   2.152659e-05 8.853040e-02 4.461885e-02
## hlr_ad_news_since_corrected_5   3.442779e+00 8.809612e-01 2.930696e+00
## hlr_ad_news_since_corrected_6   5.553473e-05 6.673799e-02 4.361439e-02
## hlr_ad_news_since_corrected_7   3.165484e-01 3.577050e-02 7.425821e-01
##                                       Dim 4        Dim 5
## hlr_books_since_corrected_0     7.348580455 3.030662e-01
## hlr_books_since_corrected_1     2.632845524 4.430570e-02
## hlr_books_since_corrected_2     0.337757138 4.665075e-04
## hlr_books_since_corrected_3     0.769078451 5.469584e-01
## hlr_books_since_corrected_4     2.987778956 2.415157e+00
## hlr_books_since_corrected_5     0.007538887 2.376996e-01
## hlr_books_since_corrected_6     0.023175476 1.169878e+00
## hlr_books_since_corrected_7     0.512801208 3.795002e-01
## hlr_dbooks_since_corrected_0    0.053492051 1.292709e-01
## hlr_dbooks_since_corrected_1    4.150415767 1.074915e-04
## hlr_dbooks_since_corrected_2    3.895985721 2.852120e-01
## hlr_dbooks_since_corrected_3    3.440648225 8.767397e-02
## hlr_dbooks_since_corrected_4    0.421627146 1.642358e+01
## hlr_dbooks_since_corrected_5    0.353139228 6.730138e+00
## hlr_dbooks_since_corrected_6    0.009112446 1.902265e-01
## hlr_dbooks_since_corrected_7    0.030471983 1.350064e-01
## hlr_games_since_corrected_0     6.405108716 2.471567e-01
## hlr_games_since_corrected_1     5.976827096 3.131906e-01
## hlr_games_since_corrected_2     2.005496950 9.503433e-01
## hlr_games_since_corrected_3     4.184512532 2.039353e-02
## hlr_games_since_corrected_4     0.026142508 9.462754e-02
## hlr_games_since_corrected_5     0.052666648 1.108252e+01
## hlr_games_since_corrected_7     0.003544532 6.750939e-03
## hlr_dgames_since_corrected_0    2.174214313 2.516251e-04
## hlr_dgames_since_corrected_1    5.216400754 2.747316e-01
## hlr_dgames_since_corrected_2    1.923823741 2.940870e+00
## hlr_dgames_since_corrected_3    4.556973120 1.524302e-01
## hlr_dgames_since_corrected_4    0.850431170 8.854857e-01
## hlr_dgames_since_corrected_5    0.518576514 3.077285e+01
## hlr_dgames_since_corrected_6    0.343205298 4.974245e+00
## hlr_dgames_since_corrected_7    0.096580999 4.547354e-01
## hlr_ad_books_since_corrected_0  5.919849400 2.426646e-01
## hlr_ad_books_since_corrected_1  6.831112986 3.043749e-02
## hlr_ad_books_since_corrected_2  0.049893781 1.575578e-02
## hlr_ad_books_since_corrected_3  0.810198869 5.781160e-01
## hlr_ad_books_since_corrected_4  2.699244724 2.056650e-02
## hlr_ad_books_since_corrected_5  0.613611346 1.127367e+01
## hlr_ad_books_since_corrected_6  1.051832143 2.680789e-02
## hlr_ad_books_since_corrected_7  1.392151040 9.911987e-01
## hlr_ad_dbooks_since_corrected_0 0.281541824 4.629078e-02
## hlr_ad_dbooks_since_corrected_1 5.219912248 2.657753e-02
## hlr_ad_dbooks_since_corrected_2 1.873542772 7.932428e-01
## hlr_ad_dbooks_since_corrected_3 2.563501527 1.538504e-03
## hlr_ad_dbooks_since_corrected_4 1.848221948 2.702236e-02
## hlr_ad_dbooks_since_corrected_5 0.010936448 1.811658e+00
## hlr_ad_dbooks_since_corrected_6 0.335901175 5.812714e-04
## hlr_ad_dbooks_since_corrected_7 0.227772251 1.168621e+00
## hlr_ad_news_since_corrected_0   0.385706957 2.785186e-02
## hlr_ad_news_since_corrected_1   2.751139506 9.749714e-02
## hlr_ad_news_since_corrected_2   1.900884623 7.766009e-02
## hlr_ad_news_since_corrected_3   1.193103780 2.527218e-01
## hlr_ad_news_since_corrected_4   0.150285472 2.385022e-03
## hlr_ad_news_since_corrected_5   0.120882279 8.758611e-02
## hlr_ad_news_since_corrected_6   0.021836209 1.092630e-02
## hlr_ad_news_since_corrected_7   0.437983141 1.397979e-01

#Correlação entre variáveis e dimensões principais correlação entre as variáveis e as dimensões principais do MCA

fviz_mca_var(res.mca_posf, choice = "mca.cor", 
            repel = TRUE, # Avoid text overlapping (slow)
            ggtheme = theme_minimal())

head(round(var_posf$coord, 2), 4)
##                             Dim 1 Dim 2 Dim 3 Dim 4 Dim 5
## hlr_books_since_corrected_0 -0.95 -2.23  0.65  1.68 -0.32
## hlr_books_since_corrected_1 -0.43 -0.23 -0.07 -0.48  0.06
## hlr_books_since_corrected_2 -0.18  0.16  0.01 -0.13  0.00
## hlr_books_since_corrected_3  0.03  0.80 -0.21  0.33 -0.26

para visualizar apenas categorias de variáveis:

fviz_mca_var(res.mca_posf, 
             repel = TRUE, # Avoid text overlapping (slow)
             ggtheme = theme_minimal())
## Warning: ggrepel: 29 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps

head(var_posf$cos2, 10)
##                                     Dim 1        Dim 2        Dim 3
## hlr_books_since_corrected_0  0.0509062767 0.2810625202 2.418014e-02
## hlr_books_since_corrected_1  0.0577614215 0.0172881857 1.503209e-03
## hlr_books_since_corrected_2  0.0212951521 0.0168010944 1.382093e-04
## hlr_books_since_corrected_3  0.0001798209 0.1085713787 7.610491e-03
## hlr_books_since_corrected_4  0.0053590448 0.0615827968 2.581675e-04
## hlr_books_since_corrected_5  0.0890996645 0.0020885435 1.472114e-01
## hlr_books_since_corrected_6  0.0238851582 0.0002278115 3.255585e-05
## hlr_books_since_corrected_7  0.3256381841 0.0685570288 3.649102e-02
## hlr_dbooks_since_corrected_0 0.0626286864 0.1664585047 6.808337e-03
## hlr_dbooks_since_corrected_1 0.0052965034 0.0310992387 4.492563e-03
##                                     Dim 4        Dim 5
## hlr_books_since_corrected_0  0.1606033153 5.713973e-03
## hlr_books_since_corrected_1  0.0715572370 1.038813e-03
## hlr_books_since_corrected_2  0.0117061075 1.394814e-05
## hlr_books_since_corrected_3  0.0186331112 1.143191e-02
## hlr_books_since_corrected_4  0.0650743223 4.537913e-02
## hlr_books_since_corrected_5  0.0001592886 4.332670e-03
## hlr_books_since_corrected_6  0.0004913053 2.139503e-02
## hlr_books_since_corrected_7  0.0113043934 7.217051e-03
## hlr_dbooks_since_corrected_0 0.0019112315 3.984504e-03
## hlr_dbooks_since_corrected_1 0.1360610806 3.039946e-06

Se uma categoria de variável é bem representada por duas dimensões, a soma do cos2 é próxima de um. Para alguns dos itens de linha, são necessárias mais de 2 dimensões para representar perfeitamente os dados.

!!! OS COSSENOS SAO MUITO BAIXOS!!

fviz_mca_var(res.mca_posf, col.var = "cos2",
             gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"), 
             repel = TRUE, # Avoid text overlapping
             ggtheme = theme_minimal())
## Warning: ggrepel: 32 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps

# Contributions of rows to dimension 1
fviz_contrib(res.mca_pref, choice = "var", axes = 1, top = 15)

fviz_contrib(res.mca_posf, choice = "var", axes = 1, top = 15)

# Contributions of rows to dimension 2
fviz_contrib(res.mca_pref, choice = "var", axes = 2, top = 15)

fviz_contrib(res.mca_posf, choice = "var", axes = 2, top = 15)

fviz_cos2(res.mca_posf, choice = "var", axes = 1:2)

head(round(var_posf$contrib,2), 49)
##                                 Dim 1 Dim 2 Dim 3 Dim 4 Dim 5
## hlr_books_since_corrected_0      1.45  9.93  0.93  7.35  0.30
## hlr_books_since_corrected_1      1.33  0.49  0.05  2.63  0.04
## hlr_books_since_corrected_2      0.38  0.37  0.00  0.34  0.00
## hlr_books_since_corrected_3      0.00  3.46  0.26  0.77  0.55
## hlr_books_since_corrected_4      0.15  2.18  0.01  2.99  2.42
## hlr_books_since_corrected_5      2.63  0.08  5.85  0.01  0.24
## hlr_books_since_corrected_6      0.70  0.01  0.00  0.02  1.17
## hlr_books_since_corrected_7      9.21  2.40  1.39  0.51  0.38
## hlr_dbooks_since_corrected_0     1.09  3.60  0.16  0.05  0.13
## hlr_dbooks_since_corrected_1     0.10  0.73  0.12  4.15  0.00
## hlr_dbooks_since_corrected_2     0.06  3.94  0.00  3.90  0.29
## hlr_dbooks_since_corrected_3     0.00  1.10  0.25  3.44  0.09
## hlr_dbooks_since_corrected_4     1.44  0.10  2.22  0.42 16.42
## hlr_dbooks_since_corrected_5     4.00  0.01 13.97  0.35  6.73
## hlr_dbooks_since_corrected_6     0.00  0.12  0.01  0.01  0.19
## hlr_dbooks_since_corrected_7     9.47  2.22  6.13  0.03  0.14
## hlr_games_since_corrected_0      1.67  9.26  0.71  6.41  0.25
## hlr_games_since_corrected_1      0.62  0.01  0.05  5.98  0.31
## hlr_games_since_corrected_2      0.25  2.04  0.19  2.01  0.95
## hlr_games_since_corrected_3      0.08  3.87  0.16  4.18  0.02
## hlr_games_since_corrected_4      4.76  0.20 11.16  0.03  0.09
## hlr_games_since_corrected_5      0.28  0.35  0.18  0.05 11.08
## hlr_games_since_corrected_7      9.57  4.42  7.82  0.00  0.01
## hlr_dgames_since_corrected_0     1.01  5.40  0.60  2.17  0.00
## hlr_dgames_since_corrected_1     0.39  0.24  0.14  5.22  0.27
## hlr_dgames_since_corrected_2     0.77  2.38  0.18  1.92  2.94
## hlr_dgames_since_corrected_3     0.17  3.55  0.28  4.56  0.15
## hlr_dgames_since_corrected_4     0.30  0.41  1.64  0.85  0.89
## hlr_dgames_since_corrected_5     0.69  0.00  1.91  0.52 30.77
## hlr_dgames_since_corrected_6     3.42  0.00 16.15  0.34  4.97
## hlr_dgames_since_corrected_7    10.67  3.40  6.58  0.10  0.45
## hlr_ad_books_since_corrected_0   1.62  8.72  0.74  5.92  0.24
## hlr_ad_books_since_corrected_1   1.15  0.18  0.05  6.83  0.03
## hlr_ad_books_since_corrected_2   0.53  0.22  0.11  0.05  0.02
## hlr_ad_books_since_corrected_3   0.00  1.56  0.05  0.81  0.58
## hlr_ad_books_since_corrected_4   0.09  2.31  0.31  2.70  0.02
## hlr_ad_books_since_corrected_5   0.85  0.33  0.03  0.61 11.27
## hlr_ad_books_since_corrected_6   0.26  0.18  0.29  1.05  0.03
## hlr_ad_books_since_corrected_7   9.13  0.59  0.37  1.39  0.99
## hlr_ad_dbooks_since_corrected_0  1.77  5.54  0.33  0.28  0.05
## hlr_ad_dbooks_since_corrected_1  0.07  2.07  0.14  5.22  0.03
## hlr_ad_dbooks_since_corrected_2  0.20  2.78  0.50  1.87  0.79
## hlr_ad_dbooks_since_corrected_3  0.21  1.33  0.64  2.56  0.00
## hlr_ad_dbooks_since_corrected_4  0.18  0.13  0.47  1.85  0.03
## hlr_ad_dbooks_since_corrected_5  1.33  0.01  0.13  0.01  1.81
## hlr_ad_dbooks_since_corrected_6  3.38  2.02  3.23  0.34  0.00
## hlr_ad_dbooks_since_corrected_7  7.71  0.05  9.53  0.23  1.17
## hlr_ad_news_since_corrected_0    0.26  0.88  0.04  0.39  0.03
## hlr_ad_news_since_corrected_1    0.23  2.52  0.04  2.75  0.10

15 principais categorias de variáveis que contribuem para as dimensões:

# Contributions of rows to dimension 1
fviz_contrib(res.mca_posf, choice = "var", axes = 1, top = 15)

# Contributions of rows to dimension 2
fviz_contrib(res.mca_posf, choice = "var", axes = 2, top = 15)

fviz_contrib(res.mca_posf, choice = "var", axes = 1:2, top = 15)

fviz_mca_var(res.mca_posf, alpha.var="contrib",
             repel = TRUE,
             ggtheme = theme_minimal())
## Warning: ggrepel: 32 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps

##Gráfico de indivíduos Resultados

lista contendo as coordenadas, o cos2 e as contribuições dos indivíduos:

ind_posf <- get_mca_ind(res.mca_posf)
ind_posf
## Multiple Correspondence Analysis Results for individuals
##  ===================================================
##   Name       Description                       
## 1 "$coord"   "Coordinates for the individuals" 
## 2 "$cos2"    "Cos2 for the individuals"        
## 3 "$contrib" "contributions of the individuals"

colorir os indivíduos por seus valores de cos2:

fviz_mca_ind(res.mca_posf, col.ind = "cos2", 
             gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"),
             repel = TRUE, # Avoid text overlapping (slow if many points)
             ggtheme = theme_minimal())
## Warning: ggrepel: 576 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps

# Cos2 of individuals
fviz_cos2(res.mca_posf, choice = "ind", axes = 1:2, top = 20)

# Contribution of individuals to the dimensions
fviz_contrib(res.mca_posf, choice = "ind", axes = 1:2, top = 20)

PANDEMIA COMPLETA

db_bloco_2f <- as.data.frame(lapply(db_bloco_2, as.factor))
summary(db_bloco_2f)
##  hlr_books_b4_corrected hlr_dbooks_b4_corrected hlr_games_b4_corrected
##  2      :240            0      :345             1      :404           
##  1      :160            1      :195             2      :117           
##  3      : 92            2      : 43             0      : 50           
##  7      : 46            3      : 10             3      : 18           
##  4      : 28            7      :  7             4      : 10           
##  0      : 21            4      :  6             5      :  7           
##  (Other): 28            (Other):  9             (Other):  9           
##  hlr_dgames_b4_corrected hlr_ad_books_b4_corrected hlr_ad_dbooks_b4_corrected
##  1      :336             2      :181               0      :285               
##  0      :172             1      :147               1      :179               
##  2      : 74             3      : 77               2      : 80               
##  3      : 19             7      : 67               3      : 28               
##  7      :  5             4      : 61               7      : 16               
##  4      :  4             0      : 39               4      : 13               
##  (Other):  5             (Other): 43               (Other): 14               
##  hlr_ad_news_b4_corrected hlr_books_since_corrected hlr_dbooks_since_corrected
##  0:475                    2      :248               0      :259               
##  1:123                    1      :147               1      :227               
##  2:  9                    3      : 90               2      : 82               
##  3:  1                    7      : 38               3      : 20               
##  5:  2                    0      : 33               7      : 16               
##  6:  1                    4      : 31               5      :  5               
##  7:  4                    (Other): 28               (Other):  6               
##  hlr_games_since_corrected hlr_dgames_since_corrected
##  0: 58                     1      :346               
##  1:363                     0      :144               
##  2:150                     2      : 94               
##  3: 20                     3      : 15               
##  4: 13                     7      :  7               
##  5:  3                     4      :  5               
##  7:  8                     (Other):  4               
##  hlr_ad_books_since_corrected hlr_ad_dbooks_since_corrected
##  2      :178                  0      :269                  
##  1      :158                  1      :200                  
##  3      : 75                  2      : 67                  
##  7      : 61                  3      : 38                  
##  0      : 51                  4      : 15                  
##  4      : 51                  7      : 15                  
##  (Other): 41                  (Other): 11                  
##  hlr_ad_news_since_corrected
##  0      :471                
##  1      :129                
##  2      :  6                
##  3      :  3                
##  5      :  2                
##  7      :  2                
##  (Other):  2
for (i in 1:14) {
  plot(db_bloco_2f[,i], main=colnames(db_bloco_2f)[i],
       ylab = "Count", col="steelblue", las = 2)
  }

MCA(db_bloco_2f,ncp = 5, graph = TRUE) 

## **Results of the Multiple Correspondence Analysis (MCA)**
## The analysis was performed on 615 individuals, described by 14 variables
## *The results are available in the following objects:
## 
##    name              description                       
## 1  "$eig"            "eigenvalues"                     
## 2  "$var"            "results for the variables"       
## 3  "$var$coord"      "coord. of the categories"        
## 4  "$var$cos2"       "cos2 for the categories"         
## 5  "$var$contrib"    "contributions of the categories" 
## 6  "$var$v.test"     "v-test for the categories"       
## 7  "$ind"            "results for the individuals"     
## 8  "$ind$coord"      "coord. for the individuals"      
## 9  "$ind$cos2"       "cos2 for the individuals"        
## 10 "$ind$contrib"    "contributions of the individuals"
## 11 "$call"           "intermediate results"            
## 12 "$call$marge.col" "weights of columns"              
## 13 "$call$marge.li"  "weights of rows"
res.mca_2f <- MCA(db_bloco_2f, graph = FALSE)
print(res.mca_2f)
## **Results of the Multiple Correspondence Analysis (MCA)**
## The analysis was performed on 615 individuals, described by 14 variables
## *The results are available in the following objects:
## 
##    name              description                       
## 1  "$eig"            "eigenvalues"                     
## 2  "$var"            "results for the variables"       
## 3  "$var$coord"      "coord. of the categories"        
## 4  "$var$cos2"       "cos2 for the categories"         
## 5  "$var$contrib"    "contributions of the categories" 
## 6  "$var$v.test"     "v-test for the categories"       
## 7  "$ind"            "results for the individuals"     
## 8  "$ind$coord"      "coord. for the individuals"      
## 9  "$ind$cos2"       "cos2 for the individuals"        
## 10 "$ind$contrib"    "contributions of the individuals"
## 11 "$call"           "intermediate results"            
## 12 "$call$marge.col" "weights of columns"              
## 13 "$call$marge.li"  "weights of rows"

#Visualização e interpretação Autovalores/variâncias retidos por cada dimensão (eixo)

eig.val_2f <- get_eigenvalue(res.mca_2f)
eig.val_2f
##          eigenvalue variance.percent cumulative.variance.percent
## Dim.1  4.359489e-01     6.357588e+00                    6.357588
## Dim.2  3.200652e-01     4.667618e+00                   11.025206
## Dim.3  2.873070e-01     4.189893e+00                   15.215099
## Dim.4  2.355143e-01     3.434584e+00                   18.649683
## Dim.5  2.039216e-01     2.973856e+00                   21.623539
## Dim.6  2.000488e-01     2.917378e+00                   24.540917
## Dim.7  1.862034e-01     2.715466e+00                   27.256384
## Dim.8  1.822856e-01     2.658331e+00                   29.914715
## Dim.9  1.774082e-01     2.587203e+00                   32.501917
## Dim.10 1.688915e-01     2.463002e+00                   34.964919
## Dim.11 1.638510e-01     2.389494e+00                   37.354413
## Dim.12 1.589896e-01     2.318598e+00                   39.673011
## Dim.13 1.536351e-01     2.240511e+00                   41.913522
## Dim.14 1.474554e-01     2.150391e+00                   44.063913
## Dim.15 1.402380e-01     2.045137e+00                   46.109051
## Dim.16 1.370846e-01     1.999150e+00                   48.108201
## Dim.17 1.346635e-01     1.963842e+00                   50.072044
## Dim.18 1.317908e-01     1.921949e+00                   51.993992
## Dim.19 1.264186e-01     1.843605e+00                   53.837597
## Dim.20 1.225926e-01     1.787809e+00                   55.625406
## Dim.21 1.207113e-01     1.760373e+00                   57.385779
## Dim.22 1.162337e-01     1.695074e+00                   59.080853
## Dim.23 1.112161e-01     1.621902e+00                   60.702755
## Dim.24 1.069881e-01     1.560243e+00                   62.262998
## Dim.25 1.052416e-01     1.534773e+00                   63.797772
## Dim.26 9.827960e-02     1.433244e+00                   65.231016
## Dim.27 9.654930e-02     1.408011e+00                   66.639026
## Dim.28 9.085067e-02     1.324906e+00                   67.963932
## Dim.29 8.805686e-02     1.284163e+00                   69.248094
## Dim.30 8.764701e-02     1.278186e+00                   70.526280
## Dim.31 8.434210e-02     1.229989e+00                   71.756269
## Dim.32 8.334194e-02     1.215403e+00                   72.971672
## Dim.33 8.058208e-02     1.175155e+00                   74.146828
## Dim.34 7.620752e-02     1.111360e+00                   75.258187
## Dim.35 7.341840e-02     1.070685e+00                   76.328872
## Dim.36 6.968805e-02     1.016284e+00                   77.345156
## Dim.37 6.652981e-02     9.702264e-01                   78.315383
## Dim.38 6.428207e-02     9.374469e-01                   79.252830
## Dim.39 6.376538e-02     9.299118e-01                   80.182741
## Dim.40 6.217417e-02     9.067067e-01                   81.089448
## Dim.41 5.832433e-02     8.505631e-01                   81.940011
## Dim.42 5.703154e-02     8.317100e-01                   82.771721
## Dim.43 5.375313e-02     7.838997e-01                   83.555621
## Dim.44 5.355438e-02     7.810013e-01                   84.336622
## Dim.45 5.142268e-02     7.499140e-01                   85.086536
## Dim.46 4.937415e-02     7.200397e-01                   85.806576
## Dim.47 4.719322e-02     6.882345e-01                   86.494810
## Dim.48 4.544652e-02     6.627618e-01                   87.157572
## Dim.49 4.333628e-02     6.319874e-01                   87.789560
## Dim.50 4.263825e-02     6.218078e-01                   88.411367
## Dim.51 4.038567e-02     5.889577e-01                   89.000325
## Dim.52 3.789926e-02     5.526975e-01                   89.553023
## Dim.53 3.736408e-02     5.448928e-01                   90.097915
## Dim.54 3.629375e-02     5.292839e-01                   90.627199
## Dim.55 3.491706e-02     5.092071e-01                   91.136406
## Dim.56 3.464096e-02     5.051806e-01                   91.641587
## Dim.57 3.428313e-02     4.999623e-01                   92.141549
## Dim.58 3.234372e-02     4.716792e-01                   92.613228
## Dim.59 2.914138e-02     4.249784e-01                   93.038207
## Dim.60 2.866478e-02     4.180281e-01                   93.456235
## Dim.61 2.724859e-02     3.973752e-01                   93.853610
## Dim.62 2.643130e-02     3.854565e-01                   94.239067
## Dim.63 2.478812e-02     3.614934e-01                   94.600560
## Dim.64 2.460497e-02     3.588225e-01                   94.959383
## Dim.65 2.340509e-02     3.413242e-01                   95.300707
## Dim.66 2.253586e-02     3.286479e-01                   95.629355
## Dim.67 2.195267e-02     3.201430e-01                   95.949498
## Dim.68 2.031717e-02     2.962920e-01                   96.245790
## Dim.69 1.894449e-02     2.762738e-01                   96.522064
## Dim.70 1.790246e-02     2.610775e-01                   96.783141
## Dim.71 1.769904e-02     2.581110e-01                   97.041252
## Dim.72 1.727591e-02     2.519404e-01                   97.293192
## Dim.73 1.588709e-02     2.316868e-01                   97.524879
## Dim.74 1.538936e-02     2.244282e-01                   97.749307
## Dim.75 1.454687e-02     2.121418e-01                   97.961449
## Dim.76 1.411401e-02     2.058293e-01                   98.167279
## Dim.77 1.378827e-02     2.010790e-01                   98.368358
## Dim.78 1.241819e-02     1.810986e-01                   98.549456
## Dim.79 1.209809e-02     1.764305e-01                   98.725887
## Dim.80 1.099138e-02     1.602909e-01                   98.886178
## Dim.81 1.057651e-02     1.542407e-01                   99.040418
## Dim.82 1.030433e-02     1.502715e-01                   99.190690
## Dim.83 9.331472e-03     1.360840e-01                   99.326774
## Dim.84 8.293444e-03     1.209461e-01                   99.447720
## Dim.85 7.998659e-03     1.166471e-01                   99.564367
## Dim.86 6.723968e-03     9.805787e-02                   99.662425
## Dim.87 6.004203e-03     8.756129e-02                   99.749986
## Dim.88 4.641065e-03     6.768220e-02                   99.817668
## Dim.89 3.181900e-03     4.640270e-02                   99.864071
## Dim.90 2.755497e-03     4.018433e-02                   99.904255
## Dim.91 2.389690e-03     3.484965e-02                   99.939105
## Dim.92 1.868539e-03     2.724952e-02                   99.966354
## Dim.93 1.569995e-03     2.289576e-02                   99.989250
## Dim.94 7.371324e-04     1.074985e-02                  100.000000
## Dim.95 1.842087e-30     2.686377e-29                  100.000000
## Dim.96 9.133450e-31     1.331961e-29                  100.000000

Porcentagens de inércia explicadas por cada dimensão MCA

fviz_screeplot(res.mca_2f, addlabels = TRUE, ylim = c(0, 45))

Biplot de indivíduos e categorias de variáveis:

fviz_mca_biplot(res.mca_2f, 
               repel = TRUE, # Avoid text overlapping (slow if many point)
               ggtheme = theme_minimal())
## Warning: ggrepel: 591 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps
## Warning: ggrepel: 92 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps

#Gráfico de variáveis #Resultados Usada para extrair os resultados para categorias de variáveis. Esta função retorna uma lista contendo as coordenadas, o cos2 e a contribuição das categorias de variáveis:

var_2f <- get_mca_var(res.mca_2f)
var_2f
## Multiple Correspondence Analysis Results for variables
##  ===================================================
##   Name       Description                  
## 1 "$coord"   "Coordinates for categories" 
## 2 "$cos2"    "Cos2 for categories"        
## 3 "$contrib" "contributions of categories"
# Coordinates
var_2f$coord
##                                       Dim 1       Dim 2         Dim 3
## hlr_books_b4_corrected_0        -0.66736584 -1.55948517  -0.459980035
## hlr_books_b4_corrected_1        -0.44086864 -0.45354029  -0.176540915
## hlr_books_b4_corrected_2        -0.24166041  0.16773757   0.042682668
## hlr_books_b4_corrected_3        -0.08624307  0.81804543   0.235929786
## hlr_books_b4_corrected_4         0.38222390  0.66696694   0.079310359
## hlr_books_b4_corrected_5         2.00785569  0.87600693  -2.000160841
## hlr_books_b4_corrected_6         0.95028163 -0.26775820   0.900959693
## hlr_books_b4_corrected_7         2.00054108 -0.96205888   0.794165123
## hlr_dbooks_b4_corrected_0       -0.23716372 -0.36414190  -0.070452947
## hlr_dbooks_b4_corrected_1        0.03827739  0.42484245   0.076321461
## hlr_dbooks_b4_corrected_2        0.02130420  1.03375187   0.193813018
## hlr_dbooks_b4_corrected_3        0.08913899  1.22735814   0.524750895
## hlr_dbooks_b4_corrected_4        4.08437583 -0.78098465   0.874416415
## hlr_dbooks_b4_corrected_5        3.20356247 -0.17930271  -5.080287121
## hlr_dbooks_b4_corrected_6        2.43402962 -0.62977291   3.958884389
## hlr_dbooks_b4_corrected_7        3.07431474 -0.89845602   1.314383456
## hlr_games_b4_corrected_0        -0.58677048 -1.27904227  -0.336649921
## hlr_games_b4_corrected_1        -0.19987687 -0.02808715  -0.006447692
## hlr_games_b4_corrected_2         0.14118997  0.68048276   0.127407408
## hlr_games_b4_corrected_3         0.53979386  1.67282640  -0.058380673
## hlr_games_b4_corrected_4         3.39728353 -0.23454537  -2.959958466
## hlr_games_b4_corrected_5         2.71872709 -0.97805319   0.972768287
## hlr_games_b4_corrected_6         4.18421216 -2.80183829   4.693804612
## hlr_games_b4_corrected_7         3.04945058 -2.80511615   2.381723603
## hlr_dgames_b4_corrected_0       -0.26741994 -0.46988418  -0.110288992
## hlr_dgames_b4_corrected_1       -0.14968060  0.04270191   0.014187845
## hlr_dgames_b4_corrected_2        0.38583228  0.82580672   0.123907391
## hlr_dgames_b4_corrected_3        0.89325829  1.09969149   1.103944845
## hlr_dgames_b4_corrected_4        1.83189889  0.35613303  -1.676717605
## hlr_dgames_b4_corrected_5        4.66108511 -0.29841182  -6.742481797
## hlr_dgames_b4_corrected_6        6.42675168 -3.52709695   8.744782940
## hlr_dgames_b4_corrected_7        3.67334534 -2.44707742   1.798101273
## hlr_ad_books_b4_corrected_0     -0.67849708 -1.40159174  -0.430183742
## hlr_ad_books_b4_corrected_1     -0.43505448 -0.31259855  -0.106505248
## hlr_ad_books_b4_corrected_2     -0.32622231  0.07280503   0.035170122
## hlr_ad_books_b4_corrected_3     -0.05897572  0.56706681   0.052921364
## hlr_ad_books_b4_corrected_4     -0.02373630  0.84204775   0.333710840
## hlr_ad_books_b4_corrected_5      0.59457578  1.20159439  -0.188117845
## hlr_ad_books_b4_corrected_6      1.03825135 -0.02960114   0.374588631
## hlr_ad_books_b4_corrected_7      1.82597665 -0.57210354   0.002379049
## hlr_ad_dbooks_b4_corrected_0    -0.34634337 -0.48947531  -0.138252175
## hlr_ad_dbooks_b4_corrected_1    -0.05673871  0.33158333   0.148810408
## hlr_ad_dbooks_b4_corrected_2     0.21883890  0.41421569   0.387491385
## hlr_ad_dbooks_b4_corrected_3     0.16698303  1.47226211   0.415771406
## hlr_ad_dbooks_b4_corrected_4     0.38466840  0.74066917   0.187820061
## hlr_ad_dbooks_b4_corrected_5     1.50751386  0.56959603   0.696511755
## hlr_ad_dbooks_b4_corrected_6     2.60878983 -1.15911888   0.671024141
## hlr_ad_dbooks_b4_corrected_7     3.37299456 -0.09026883  -2.619750200
## hlr_ad_news_b4_corrected_0      -0.16664027 -0.15439106  -0.003542608
## hlr_ad_news_b4_corrected_1       0.41221068  0.53909272  -0.090512689
## hlr_ad_news_b4_corrected_2       1.16610868  1.17181157   0.079443811
## hlr_ad_news_b4_corrected_3       0.28295981  3.22162490   1.315523832
## hlr_ad_news_b4_corrected_5       2.39142820 -1.37758314   1.724122065
## hlr_ad_news_b4_corrected_6      -0.08015465  1.58365384   0.743102202
## hlr_ad_news_b4_corrected_7       3.24289413 -1.39226650   1.648483798
## hlr_books_since_corrected_0     -0.49524983 -1.65546769  -0.351231928
## hlr_books_since_corrected_1     -0.42391718 -0.34411242  -0.120423629
## hlr_books_since_corrected_2     -0.23857199  0.09813368   0.008233037
## hlr_books_since_corrected_3     -0.03751474  0.84397983   0.232335573
## hlr_books_since_corrected_4      0.34158897  1.23658615   0.079960861
## hlr_books_since_corrected_5      2.25683088  0.65553765  -2.532925251
## hlr_books_since_corrected_6      1.30887104 -0.07742338  -0.159029954
## hlr_books_since_corrected_7      2.14842436 -1.07303124   1.030937454
## hlr_dbooks_since_corrected_0    -0.27893310 -0.43008455  -0.115908167
## hlr_dbooks_since_corrected_1    -0.04565644  0.17086655   0.039190626
## hlr_dbooks_since_corrected_2     0.04068519  0.83368236   0.105957577
## hlr_dbooks_since_corrected_3    -0.04910807  0.98273760   0.418548322
## hlr_dbooks_since_corrected_4     2.75816048  0.91815800  -1.954135105
## hlr_dbooks_since_corrected_5     4.43638622 -0.15730921  -6.136325328
## hlr_dbooks_since_corrected_6     0.43766858  0.81888911   1.565935113
## hlr_dbooks_since_corrected_7     2.88523440 -1.24596107   2.464422011
## hlr_games_since_corrected_0     -0.50180215 -1.41538388  -0.302301577
## hlr_games_since_corrected_1     -0.21438697 -0.03299133  -0.028643630
## hlr_games_since_corrected_2      0.13791506  0.53467568   0.180260036
## hlr_games_since_corrected_3      0.32774157  1.78953297   0.281270056
## hlr_games_since_corrected_4      2.96209566  0.36144453  -2.794634719
## hlr_games_since_corrected_5      2.11123220 -1.30921166  -1.278577217
## hlr_games_since_corrected_7      4.35549563 -2.83687969   4.429088201
## hlr_dgames_since_corrected_0    -0.27240507 -0.67836542  -0.166658711
## hlr_dgames_since_corrected_1    -0.17944868  0.05221801  -0.011542401
## hlr_dgames_since_corrected_2     0.38280534  0.63034445   0.251193494
## hlr_dgames_since_corrected_3     0.53587787  2.01128761   0.623910634
## hlr_dgames_since_corrected_4     0.83677631  1.15268688  -0.836241235
## hlr_dgames_since_corrected_5     3.10107451  0.61726955  -3.823183882
## hlr_dgames_since_corrected_6     6.59643853  0.01858798 -11.139390455
## hlr_dgames_since_corrected_7     4.81639912 -2.40566474   4.161147419
## hlr_ad_books_since_corrected_0  -0.58310306 -1.47967835  -0.398350260
## hlr_ad_books_since_corrected_1  -0.39362110 -0.25896313  -0.088609780
## hlr_ad_books_since_corrected_2  -0.27497958  0.11357475   0.070810476
## hlr_ad_books_since_corrected_3  -0.04421572  0.65538180   0.042791379
## hlr_ad_books_since_corrected_4   0.05321534  0.93674647   0.312654770
## hlr_ad_books_since_corrected_5   0.86257757  0.94399281   0.001973470
## hlr_ad_books_since_corrected_6   0.60555334  0.27915261   0.443360795
## hlr_ad_books_since_corrected_7   1.81961854 -0.43993412  -0.096886464
## hlr_ad_dbooks_since_corrected_0 -0.35636071 -0.57196078  -0.158745721
## hlr_ad_dbooks_since_corrected_1 -0.05858691  0.36593139   0.049315594
## hlr_ad_dbooks_since_corrected_2  0.16359319  0.75937492   0.423714803
## hlr_ad_dbooks_since_corrected_3  0.30059341  0.88156011   0.580362409
## hlr_ad_dbooks_since_corrected_4  0.48795979  0.51402221   0.534606053
## hlr_ad_dbooks_since_corrected_5  1.88376273  0.02169769  -0.057217255
## hlr_ad_dbooks_since_corrected_6  3.30905507 -2.05151414   3.352391036
## hlr_ad_dbooks_since_corrected_7  3.43021091 -0.22415951  -2.575421167
## hlr_ad_news_since_corrected_0   -0.12260893 -0.17134357  -0.039585639
## hlr_ad_news_since_corrected_1    0.25837996  0.52944991   0.017550248
## hlr_ad_news_since_corrected_2    1.18311218  1.66652593   0.360946064
## hlr_ad_news_since_corrected_3    0.81703612  2.14577402   0.824089430
## hlr_ad_news_since_corrected_4    0.31303187  1.13418849   0.385506825
## hlr_ad_news_since_corrected_5    4.98780977 -2.42149422   5.997231611
## hlr_ad_news_since_corrected_6   -0.08015465  1.58365384   0.743102202
## hlr_ad_news_since_corrected_7    2.32975738 -0.95377375  -0.690081503
##                                       Dim 4        Dim 5
## hlr_books_b4_corrected_0         1.54798045 -0.253300696
## hlr_books_b4_corrected_1        -0.10875251 -0.298469611
## hlr_books_b4_corrected_2        -0.30103067  0.213597865
## hlr_books_b4_corrected_3         0.40671313  0.163513896
## hlr_books_b4_corrected_4         0.97431465  0.005169687
## hlr_books_b4_corrected_5         0.59354080 -0.149731755
## hlr_books_b4_corrected_6        -0.51186686 -0.767696999
## hlr_books_b4_corrected_7        -0.33335056 -0.092192473
## hlr_dbooks_b4_corrected_0        0.13355340  0.107606672
## hlr_dbooks_b4_corrected_1       -0.44184054 -0.107601476
## hlr_dbooks_b4_corrected_2        0.77889802 -0.396109345
## hlr_dbooks_b4_corrected_3        0.71502854  0.233905223
## hlr_dbooks_b4_corrected_4        0.27488376 -3.334907026
## hlr_dbooks_b4_corrected_5       -0.68567757  0.457109023
## hlr_dbooks_b4_corrected_6       -0.96980920  7.762239559
## hlr_dbooks_b4_corrected_7        0.68775311 -1.066899282
## hlr_games_b4_corrected_0         1.05403809 -0.152776883
## hlr_games_b4_corrected_1        -0.33497082  0.046608711
## hlr_games_b4_corrected_2         0.48135415  0.043298767
## hlr_games_b4_corrected_3         1.16119144 -0.931037668
## hlr_games_b4_corrected_4        -0.42949976  0.234480959
## hlr_games_b4_corrected_5         0.83762518  4.032062037
## hlr_games_b4_corrected_6        -0.63727488 -4.727159889
## hlr_games_b4_corrected_7         0.95831165 -2.647686138
## hlr_dgames_b4_corrected_0        0.42477826  0.140272696
## hlr_dgames_b4_corrected_1       -0.40437029 -0.047666635
## hlr_dgames_b4_corrected_2        0.49992783  0.182179099
## hlr_dgames_b4_corrected_3        0.66306659 -1.459638849
## hlr_dgames_b4_corrected_4        1.16346103  0.387429529
## hlr_dgames_b4_corrected_5        0.15104802  2.150913693
## hlr_dgames_b4_corrected_6       -0.52758077 14.178446211
## hlr_dgames_b4_corrected_7        1.69663553 -3.638169765
## hlr_ad_books_b4_corrected_0      1.14783861 -0.215326549
## hlr_ad_books_b4_corrected_1     -0.52435295 -0.277034954
## hlr_ad_books_b4_corrected_2     -0.26240180  0.214325290
## hlr_ad_books_b4_corrected_3      0.22242474  0.161001948
## hlr_ad_books_b4_corrected_4      0.89850380  0.072501827
## hlr_ad_books_b4_corrected_5      0.74415468  0.008718523
## hlr_ad_books_b4_corrected_6      1.01476613 -0.817354786
## hlr_ad_books_b4_corrected_7     -0.42873997  0.107128126
## hlr_ad_dbooks_b4_corrected_0     0.23939890  0.074328598
## hlr_ad_dbooks_b4_corrected_1    -0.69454902 -0.273711548
## hlr_ad_dbooks_b4_corrected_2     0.16477142  0.219004277
## hlr_ad_dbooks_b4_corrected_3     1.05323215  0.189144190
## hlr_ad_dbooks_b4_corrected_4     0.93180495  0.075081129
## hlr_ad_dbooks_b4_corrected_5     0.83239351  0.955888335
## hlr_ad_dbooks_b4_corrected_6    -0.59728133 -0.039886812
## hlr_ad_dbooks_b4_corrected_7    -0.11034691 -0.211843951
## hlr_ad_news_b4_corrected_0       0.12021455  0.041164615
## hlr_ad_news_b4_corrected_1      -0.48634227 -0.320795140
## hlr_ad_news_b4_corrected_2       0.24988036 -1.408051377
## hlr_ad_news_b4_corrected_3       3.10521166  1.265760877
## hlr_ad_news_b4_corrected_5       0.88355888  4.475553043
## hlr_ad_news_b4_corrected_6       0.74161247  0.013466352
## hlr_ad_news_b4_corrected_7      -1.28616959  5.586684751
## hlr_books_since_corrected_0      1.50700768 -0.256778095
## hlr_books_since_corrected_1     -0.31487674 -0.264378160
## hlr_books_since_corrected_2     -0.21903660  0.213488876
## hlr_books_since_corrected_3      0.29172648  0.123264479
## hlr_books_since_corrected_4      1.20233153 -0.278033857
## hlr_books_since_corrected_5      0.49145639 -0.409295090
## hlr_books_since_corrected_6     -0.15356950  0.182615264
## hlr_books_since_corrected_7     -0.44043021 -0.144766344
## hlr_dbooks_since_corrected_0     0.16605438  0.123151457
## hlr_dbooks_since_corrected_1    -0.46287128 -0.103792367
## hlr_dbooks_since_corrected_2     0.49988473 -0.188222658
## hlr_dbooks_since_corrected_3     1.10805733  0.117575903
## hlr_dbooks_since_corrected_4     1.25491750 -1.866423098
## hlr_dbooks_since_corrected_5    -0.58714253  0.774307208
## hlr_dbooks_since_corrected_6    -1.19092341  4.554136233
## hlr_dbooks_since_corrected_7    -0.04938173 -0.047921019
## hlr_games_since_corrected_0      1.21845445 -0.174293346
## hlr_games_since_corrected_1     -0.42748279  0.002898944
## hlr_games_since_corrected_2      0.36794432  0.181843008
## hlr_games_since_corrected_3      1.26928751 -0.755279902
## hlr_games_since_corrected_4      0.16239943  0.048051449
## hlr_games_since_corrected_5      0.87986816  2.513836733
## hlr_games_since_corrected_7     -0.10278767 -1.410041862
## hlr_dgames_since_corrected_0     0.49911598  0.154478477
## hlr_dgames_since_corrected_1    -0.38587145 -0.064983075
## hlr_dgames_since_corrected_2     0.32082863  0.147280012
## hlr_dgames_since_corrected_3     1.22124844 -0.414977922
## hlr_dgames_since_corrected_4     1.40942448 -0.599687710
## hlr_dgames_since_corrected_5     2.52723025  2.045437624
## hlr_dgames_since_corrected_6    -0.89109728  1.330506215
## hlr_dgames_since_corrected_7     0.40611642 -1.590551166
## hlr_ad_books_since_corrected_0   1.26321462 -0.320446394
## hlr_ad_books_since_corrected_1  -0.59512558 -0.242297517
## hlr_ad_books_since_corrected_2  -0.17734232  0.200838542
## hlr_ad_books_since_corrected_3   0.27403372  0.208685580
## hlr_ad_books_since_corrected_4   0.80244568 -0.005631498
## hlr_ad_books_since_corrected_5   0.76166991  1.167641376
## hlr_ad_books_since_corrected_6   0.93409081 -0.858367056
## hlr_ad_books_since_corrected_7  -0.57063758 -0.096177624
## hlr_ad_dbooks_since_corrected_0  0.25754436  0.099029631
## hlr_ad_dbooks_since_corrected_1 -0.62379828 -0.191181372
## hlr_ad_dbooks_since_corrected_2  0.29405856 -0.048287762
## hlr_ad_dbooks_since_corrected_3  0.60519548  0.753389292
## hlr_ad_dbooks_since_corrected_4  1.30674025 -0.282989889
## hlr_ad_dbooks_since_corrected_5  0.23130178  1.039249336
## hlr_ad_dbooks_since_corrected_6 -1.01529597 -3.505456063
## hlr_ad_dbooks_since_corrected_7 -0.29187742 -0.186952146
## hlr_ad_news_since_corrected_0    0.14479005  0.070764044
## hlr_ad_news_since_corrected_1   -0.62839832 -0.376053563
## hlr_ad_news_since_corrected_2    1.33036454 -1.959859167
## hlr_ad_news_since_corrected_3    2.04111766  0.219254399
## hlr_ad_news_since_corrected_4    2.29193045  0.036142517
## hlr_ad_news_since_corrected_5   -0.37666840  9.956953361
## hlr_ad_news_since_corrected_6    0.74161247  0.013466352
## hlr_ad_news_since_corrected_7   -1.75923801  3.159460526
var_2f$cos2
##                                        Dim 1        Dim 2        Dim 3
## hlr_books_b4_corrected_0        1.574566e-02 8.597959e-02 7.480159e-03
## hlr_books_b4_corrected_1        6.834819e-02 7.233364e-02 1.095972e-02
## hlr_books_b4_corrected_2        3.737584e-02 1.800697e-02 1.165959e-03
## hlr_books_b4_corrected_3        1.308382e-03 1.177175e-01 9.791555e-03
## hlr_books_b4_corrected_4        6.968762e-03 2.121918e-02 3.000404e-04
## hlr_books_b4_corrected_5        1.355121e-01 2.579456e-02 1.344754e-01
## hlr_books_b4_corrected_6        1.190162e-02 9.449022e-04 1.069823e-02
## hlr_books_b4_corrected_7        3.235493e-01 7.482537e-02 5.098791e-02
## hlr_dbooks_b4_corrected_0       7.187069e-02 1.694325e-01 6.342400e-03
## hlr_dbooks_b4_corrected_1       6.802522e-04 8.379944e-02 2.704448e-03
## hlr_dbooks_b4_corrected_2       3.411950e-05 8.033504e-02 2.823828e-03
## hlr_dbooks_b4_corrected_3       1.313349e-04 2.489931e-02 4.551463e-03
## hlr_dbooks_b4_corrected_4       1.643559e-01 6.009232e-03 7.533045e-03
## hlr_dbooks_b4_corrected_5       1.011115e-01 3.167435e-04 2.542790e-01
## hlr_dbooks_b4_corrected_6       2.904167e-02 1.944186e-03 7.682728e-02
## hlr_dbooks_b4_corrected_7       1.088156e-01 9.293688e-03 1.989018e-02
## hlr_games_b4_corrected_0        3.046899e-02 1.447743e-01 1.002948e-02
## hlr_games_b4_corrected_1        7.649341e-02 1.510477e-03 7.959897e-05
## hlr_games_b4_corrected_2        4.683432e-03 1.087905e-01 3.813694e-03
## hlr_games_b4_corrected_3        8.785249e-03 8.437231e-02 1.027629e-04
## hlr_games_b4_corrected_4        1.907692e-01 9.092815e-04 1.448158e-01
## hlr_games_b4_corrected_5        8.509924e-02 1.101335e-02 1.089465e-02
## hlr_games_b4_corrected_6        8.582172e-02 3.848185e-02 1.079990e-01
## hlr_games_b4_corrected_7        9.161723e-02 7.752391e-02 5.588776e-02
## hlr_dgames_b4_corrected_0       2.776593e-02 8.572478e-02 4.722686e-03
## hlr_dgames_b4_corrected_1       2.698150e-02 2.195987e-03 2.424197e-04
## hlr_dgames_b4_corrected_2       2.036252e-02 9.328059e-02 2.100046e-03
## hlr_dgames_b4_corrected_3       2.543674e-02 3.855219e-02 3.885099e-02
## hlr_dgames_b4_corrected_4       2.196958e-02 8.303158e-04 1.840512e-02
## hlr_dgames_b4_corrected_5       1.422305e-01 5.829762e-04 2.976174e-01
## hlr_dgames_b4_corrected_6       6.726895e-02 2.026126e-02 1.245460e-01
## hlr_dgames_b4_corrected_7       1.106022e-01 4.908351e-02 2.650138e-02
## hlr_ad_books_b4_corrected_0     3.117009e-02 1.330103e-01 1.252997e-02
## hlr_ad_books_b4_corrected_1     5.945095e-02 3.069343e-02 3.562981e-03
## hlr_ad_books_b4_corrected_2     4.438295e-02 2.210607e-03 5.158656e-04
## hlr_ad_books_b4_corrected_3     4.978000e-04 4.602321e-02 4.008395e-04
## hlr_ad_books_b4_corrected_4     6.203635e-05 7.807168e-02 1.226198e-02
## hlr_ad_books_b4_corrected_5     1.560531e-02 6.373439e-02 1.562133e-03
## hlr_ad_books_b4_corrected_6     3.064451e-02 2.490948e-05 3.988935e-03
## hlr_ad_books_b4_corrected_7     4.076474e-01 4.001691e-02 6.919919e-07
## hlr_ad_dbooks_b4_corrected_0    1.035964e-01 2.069153e-01 1.650726e-02
## hlr_ad_dbooks_b4_corrected_1    1.321677e-03 4.513900e-02 9.091450e-03
## hlr_ad_dbooks_b4_corrected_2    7.161191e-03 2.565602e-02 2.245227e-02
## hlr_ad_dbooks_b4_corrected_3    1.330040e-03 1.033928e-01 8.245731e-03
## hlr_ad_dbooks_b4_corrected_4    3.195361e-03 1.184665e-02 7.617822e-04
## hlr_ad_dbooks_b4_corrected_5    2.995187e-02 4.275975e-03 6.393787e-03
## hlr_ad_dbooks_b4_corrected_6    6.705206e-02 1.323701e-02 4.436191e-03
## hlr_ad_dbooks_b4_corrected_7    3.038956e-01 2.176551e-04 1.833213e-01
## hlr_ad_news_b4_corrected_0      9.421618e-02 8.087418e-02 4.258061e-05
## hlr_ad_news_b4_corrected_1      4.247941e-02 7.265524e-02 2.048137e-03
## hlr_ad_news_b4_corrected_2      2.019519e-02 2.039320e-02 9.373246e-05
## hlr_ad_news_b4_corrected_3      1.304011e-04 1.690369e-02 2.818572e-03
## hlr_ad_news_b4_corrected_5      1.865882e-02 6.191632e-03 9.698522e-03
## hlr_ad_news_b4_corrected_6      1.046379e-05 4.084625e-03 8.993500e-04
## hlr_ad_news_b4_corrected_7      6.884689e-02 1.269006e-02 1.779050e-02
## hlr_books_since_corrected_0     1.390720e-02 1.553933e-01 6.994858e-03
## hlr_books_since_corrected_1     5.644604e-02 3.719394e-02 4.555068e-03
## hlr_books_since_corrected_2     3.846135e-02 6.507614e-03 4.580425e-05
## hlr_books_since_corrected_3     2.412609e-04 1.221089e-01 9.253683e-03
## hlr_books_since_corrected_4     6.193791e-03 8.117038e-02 3.393937e-04
## hlr_books_since_corrected_5     1.099879e-01 9.279875e-03 1.385452e-01
## hlr_books_since_corrected_6     4.282858e-02 1.498595e-04 6.322632e-04
## hlr_books_since_corrected_7     3.039820e-01 7.582851e-02 6.999587e-02
## hlr_dbooks_since_corrected_0    5.660436e-02 1.345728e-01 9.774124e-03
## hlr_dbooks_since_corrected_1    1.219546e-03 1.708080e-02 8.985837e-04
## hlr_dbooks_since_corrected_2    2.546592e-04 1.069271e-01 1.727232e-03
## hlr_dbooks_since_corrected_3    8.106226e-05 3.246296e-02 5.888494e-03
## hlr_dbooks_since_corrected_4    4.980327e-02 5.518914e-03 2.499931e-02
## hlr_dbooks_since_corrected_5    1.613240e-01 2.028376e-04 3.086433e-01
## hlr_dbooks_since_corrected_6    6.249716e-04 2.187861e-03 8.000498e-03
## hlr_dbooks_since_corrected_7    2.223593e-01 4.146695e-02 1.622271e-01
## hlr_games_since_corrected_0     2.622031e-02 2.086034e-01 9.515982e-03
## hlr_games_since_corrected_1     6.620684e-02 1.567854e-03 1.181850e-03
## hlr_games_since_corrected_2     6.135666e-03 9.221874e-02 1.048183e-02
## hlr_games_since_corrected_3     3.610573e-03 1.076446e-01 2.659255e-03
## hlr_games_since_corrected_4     1.894720e-01 2.821176e-03 1.686541e-01
## hlr_games_since_corrected_5     2.184952e-02 8.402133e-03 8.013528e-03
## hlr_games_since_corrected_7     2.500210e-01 1.060677e-01 2.585413e-01
## hlr_dgames_since_corrected_0    2.268673e-02 1.406919e-01 8.491758e-03
## hlr_dgames_since_corrected_1    4.141945e-02 3.507232e-03 1.713626e-04
## hlr_dgames_since_corrected_2    2.643907e-02 7.168792e-02 1.138431e-02
## hlr_dgames_since_corrected_3    7.179127e-03 1.011319e-01 9.731612e-03
## hlr_dgames_since_corrected_4    5.739300e-03 1.089088e-02 5.731962e-03
## hlr_dgames_since_corrected_5    3.137574e-02 1.243138e-03 4.768918e-02
## hlr_dgames_since_corrected_6    1.419674e-01 1.127285e-06 4.048484e-01
## hlr_dgames_since_corrected_7    2.670788e-01 6.662921e-02 1.993520e-01
## hlr_ad_books_since_corrected_0  3.074551e-02 1.979820e-01 1.434899e-02
## hlr_ad_books_since_corrected_1  5.356704e-02 2.318552e-02 2.714590e-03
## hlr_ad_books_since_corrected_2  3.079920e-02 5.254146e-03 2.042366e-03
## hlr_ad_books_since_corrected_3  2.715319e-04 5.965629e-02 2.543197e-04
## hlr_ad_books_since_corrected_4  2.560736e-04 7.934786e-02 8.839368e-03
## hlr_ad_books_since_corrected_5  2.760351e-02 3.306019e-02 1.444870e-07
## hlr_ad_books_since_corrected_6  1.168994e-02 2.484224e-03 6.266455e-03
## hlr_ad_books_since_corrected_7  3.645699e-01 2.131058e-02 1.033585e-03
## hlr_ad_dbooks_since_corrected_0 9.873152e-02 2.543365e-01 1.959207e-02
## hlr_ad_dbooks_since_corrected_1 1.654181e-03 6.453291e-02 1.172062e-03
## hlr_ad_dbooks_since_corrected_2 3.272086e-03 7.050286e-02 2.195035e-02
## hlr_ad_dbooks_since_corrected_3 5.950681e-03 5.118134e-02 2.218229e-02
## hlr_ad_dbooks_since_corrected_4 5.952619e-03 6.605471e-03 7.145091e-03
## hlr_ad_dbooks_since_corrected_5 4.085515e-02 5.420279e-06 3.769194e-05
## hlr_ad_dbooks_since_corrected_6 7.168475e-02 2.755293e-02 7.357464e-02
## hlr_ad_dbooks_since_corrected_7 2.941587e-01 1.256187e-03 1.658199e-01
## hlr_ad_news_since_corrected_0   4.917028e-02 9.602715e-02 5.125470e-03
## hlr_ad_news_since_corrected_1   1.772030e-02 7.440518e-02 8.175606e-05
## hlr_ad_news_since_corrected_2   1.379068e-02 2.736265e-02 1.283567e-03
## hlr_ad_news_since_corrected_3   3.272294e-03 2.257032e-02 3.329036e-03
## hlr_ad_news_since_corrected_4   1.595911e-04 2.095087e-03 2.420448e-04
## hlr_ad_news_since_corrected_5   8.116883e-02 1.913094e-02 1.173468e-01
## hlr_ad_news_since_corrected_6   1.046379e-05 4.084625e-03 8.993500e-04
## hlr_ad_news_since_corrected_7   1.770887e-02 2.967975e-03 1.553711e-03
##                                        Dim 4        Dim 5
## hlr_books_b4_corrected_0        0.0847156778 2.268327e-03
## hlr_books_b4_corrected_1        0.0041589835 3.132628e-02
## hlr_books_b4_corrected_2        0.0579964567 2.919939e-02
## hlr_books_b4_corrected_3        0.0290979586 4.703222e-03
## hlr_books_b4_corrected_4        0.0452812491 1.274819e-06
## hlr_books_b4_corrected_5        0.0118417034 7.535999e-04
## hlr_books_b4_corrected_6        0.0034531490 7.767495e-03
## hlr_books_b4_corrected_7        0.0089835491 6.871262e-04
## hlr_dbooks_b4_corrected_0       0.0227910975 1.479564e-02
## hlr_dbooks_b4_corrected_1       0.0906392786 5.375536e-03
## hlr_dbooks_b4_corrected_2       0.0456072224 1.179513e-02
## hlr_dbooks_b4_corrected_3       0.0084506746 9.043248e-04
## hlr_dbooks_b4_corrected_4       0.0007444442 1.095725e-01
## hlr_dbooks_b4_corrected_5       0.0046320564 2.058607e-03
## hlr_dbooks_b4_corrected_6       0.0046104406 2.953547e-01
## hlr_dbooks_b4_corrected_7       0.0054457737 1.310513e-02
## hlr_games_b4_corrected_0        0.0983182568 2.065555e-03
## hlr_games_b4_corrected_1        0.2148388670 4.159423e-03
## hlr_games_b4_corrected_2        0.0544359689 4.404611e-04
## hlr_games_b4_corrected_3        0.0406542381 2.613561e-02
## hlr_games_b4_corrected_4        0.0030490917 9.087821e-04
## hlr_games_b4_corrected_5        0.0080778150 1.871754e-01
## hlr_games_b4_corrected_6        0.0019907808 1.095394e-01
## hlr_games_b4_corrected_7        0.0090478938 6.906642e-02
## hlr_dgames_b4_corrected_0       0.0700566369 7.639607e-03
## hlr_dgames_b4_corrected_1       0.1969216932 2.736302e-03
## hlr_dgames_b4_corrected_2       0.0341860627 4.539746e-03
## hlr_dgames_b4_corrected_3       0.0140159209 6.792008e-02
## hlr_dgames_b4_corrected_4       0.0088618106 9.826621e-04
## hlr_dgames_b4_corrected_5       0.0001493650 3.028759e-02
## hlr_dgames_b4_corrected_6       0.0004533249 3.274077e-01
## hlr_dgames_b4_corrected_7       0.0235948535 1.084941e-01
## hlr_ad_books_b4_corrected_0     0.0892079956 3.139332e-03
## hlr_ad_books_b4_corrected_1     0.0863612490 2.410686e-02
## hlr_ad_books_b4_corrected_2     0.0287159026 1.915736e-02
## hlr_ad_books_b4_corrected_3     0.0070806746 3.709973e-03
## hlr_ad_books_b4_corrected_4     0.0888914320 5.787859e-04
## hlr_ad_books_b4_corrected_5     0.0244446874 3.355397e-06
## hlr_ad_books_b4_corrected_6     0.0292738378 1.899192e-02
## hlr_ad_books_b4_corrected_7     0.0224740942 1.403141e-03
## hlr_ad_dbooks_b4_corrected_0    0.0494965843 4.771367e-03
## hlr_ad_dbooks_b4_corrected_1    0.1980488618 3.075762e-02
## hlr_ad_dbooks_b4_corrected_2    0.0040597565 7.172018e-03
## hlr_ad_dbooks_b4_corrected_3    0.0529137017 1.706499e-03
## hlr_ad_dbooks_b4_corrected_4    0.0187498105 1.217330e-04
## hlr_ad_dbooks_b4_corrected_5    0.0091318479 1.204247e-02
## hlr_ad_dbooks_b4_corrected_6    0.0035147289 1.567446e-05
## hlr_ad_dbooks_b4_corrected_7    0.0003252471 1.198741e-03
## hlr_ad_news_b4_corrected_0      0.0490320050 5.749283e-03
## hlr_ad_news_b4_corrected_1      0.0591321997 2.572738e-02
## hlr_ad_news_b4_corrected_2      0.0009273296 2.944468e-02
## hlr_ad_news_b4_corrected_3      0.0157041359 2.609366e-03
## hlr_ad_news_b4_corrected_5      0.0025470679 6.535261e-02
## hlr_ad_news_b4_corrected_6      0.0008957476 2.953463e-07
## hlr_ad_news_b4_corrected_7      0.0108296709 2.043276e-01
## hlr_books_since_corrected_0     0.1287721329 3.738582e-03
## hlr_books_since_corrected_1     0.0311424411 2.195445e-02
## hlr_books_since_corrected_2     0.0324204456 3.079896e-02
## hlr_books_since_corrected_3     0.0145893154 2.604708e-03
## hlr_books_since_corrected_4     0.0767356756 4.103403e-03
## hlr_books_since_corrected_5     0.0052157509 3.617595e-03
## hlr_books_since_corrected_6     0.0005895898 8.337084e-04
## hlr_books_since_corrected_7     0.0127750316 1.380203e-03
## hlr_dbooks_since_corrected_0    0.0200609000 1.103390e-02
## hlr_dbooks_since_corrected_1    0.1253471898 6.302676e-03
## hlr_dbooks_since_corrected_2    0.0384438069 5.450426e-03
## hlr_dbooks_since_corrected_3    0.0412702871 4.646754e-04
## hlr_dbooks_since_corrected_4    0.0103097736 2.280547e-02
## hlr_dbooks_since_corrected_5    0.0028257078 4.914358e-03
## hlr_dbooks_since_corrected_6    0.0046274016 6.766772e-02
## hlr_dbooks_since_corrected_7    0.0000651367 6.134021e-05
## hlr_games_since_corrected_0     0.1545935586 3.163257e-03
## hlr_games_since_corrected_1     0.2632348291 1.210559e-05
## hlr_games_since_corrected_2     0.0436719432 1.066674e-02
## hlr_games_since_corrected_3     0.0541543118 1.917471e-02
## hlr_games_since_corrected_4     0.0005695290 4.986087e-05
## hlr_games_since_corrected_5     0.0037949411 3.097733e-02
## hlr_games_since_corrected_7     0.0001392462 2.620386e-02
## hlr_dgames_since_corrected_0    0.0761630876 7.295878e-03
## hlr_dgames_since_corrected_1    0.1915177889 5.431557e-03
## hlr_dgames_since_corrected_2    0.0185710457 3.913612e-03
## hlr_dgames_since_corrected_3    0.0372861938 4.305167e-03
## hlr_dgames_since_corrected_4    0.0162826013 2.947749e-03
## hlr_dgames_since_corrected_5    0.0208381492 1.365029e-02
## hlr_dgames_since_corrected_6    0.0025907157 5.775683e-03
## hlr_dgames_since_corrected_7    0.0018988715 2.912660e-02
## hlr_ad_books_since_corrected_0  0.1442930309 9.285426e-03
## hlr_ad_books_since_corrected_1  0.1224498133 2.029733e-02
## hlr_ad_books_since_corrected_2  0.0128104193 1.642982e-02
## hlr_ad_books_since_corrected_3  0.0104297891 6.048565e-03
## hlr_ad_books_since_corrected_4  0.0582267249 2.867735e-06
## hlr_ad_books_since_corrected_5  0.0215229394 5.058095e-02
## hlr_ad_books_since_corrected_6  0.0278154149 2.348840e-02
## hlr_ad_books_since_corrected_7  0.0358542641 1.018517e-03
## hlr_ad_dbooks_since_corrected_0 0.0515679992 7.624415e-03
## hlr_ad_dbooks_since_corrected_1 0.1875297822 1.761461e-02
## hlr_ad_dbooks_since_corrected_2 0.0105721154 2.850811e-04
## hlr_ad_dbooks_since_corrected_3 0.0241212127 3.738063e-02
## hlr_ad_dbooks_since_corrected_4 0.0426892517 2.002082e-03
## hlr_ad_dbooks_since_corrected_5 0.0006159599 1.243466e-02
## hlr_ad_dbooks_since_corrected_6 0.0067484511 8.044663e-02
## hlr_ad_dbooks_since_corrected_7 0.0021298108 8.737776e-04
## hlr_ad_news_since_corrected_0   0.0685702680 1.637886e-02
## hlr_ad_news_since_corrected_1   0.1048150086 3.753642e-02
## hlr_ad_news_since_corrected_2   0.0174371411 3.784284e-02
## hlr_ad_news_since_corrected_3   0.0204223593 2.356495e-04
## hlr_ad_news_since_corrected_4   0.0085552853 2.127494e-06
## hlr_ad_news_since_corrected_5   0.0004629008 3.234614e-01
## hlr_ad_news_since_corrected_6   0.0008957476 2.953463e-07
## hlr_ad_news_since_corrected_7   0.0100976130 3.256832e-02
var_2f$contrib
##                                        Dim 1        Dim 2        Dim 3
## hlr_books_b4_corrected_0        0.2491773232 1.853276e+00 1.796172e-01
## hlr_books_b4_corrected_1        0.8285136574 1.194291e+00 2.015865e-01
## hlr_books_b4_corrected_2        0.3734079296 2.450362e-01 1.767523e-02
## hlr_books_b4_corrected_3        0.0182304545 2.234092e+00 2.070161e-01
## hlr_books_b4_corrected_4        0.1089820531 4.519861e-01 7.119813e-03
## hlr_books_b4_corrected_5        2.1481087437 5.569337e-01 3.234525e+00
## hlr_books_b4_corrected_6        0.1924668447 2.081296e-02 2.625134e-01
## hlr_books_b4_corrected_7        4.9047181473 1.544968e+00 1.172817e+00
## hlr_dbooks_b4_corrected_0       0.5169837273 1.660041e+00 6.922582e-02
## hlr_dbooks_b4_corrected_1       0.0076116796 1.277170e+00 4.591755e-02
## hlr_dbooks_b4_corrected_2       0.0005199481 1.667475e+00 6.529577e-02
## hlr_dbooks_b4_corrected_3       0.0021168822 5.466395e-01 1.113159e-01
## hlr_dbooks_b4_corrected_4       2.6666371233 1.327989e-01 1.854550e-01
## hlr_dbooks_b4_corrected_5       1.6405101402 6.999763e-03 6.260060e+00
## hlr_dbooks_b4_corrected_6       0.4735155508 4.317652e-02 1.900718e+00
## hlr_dbooks_b4_corrected_7       1.7626089408 2.050454e-01 4.888695e-01
## hlr_games_b4_corrected_0        0.4586356402 2.968234e+00 2.290750e-01
## hlr_games_b4_corrected_1        0.4299992790 1.156525e-02 6.789544e-04
## hlr_games_b4_corrected_2        0.0621376471 1.965977e+00 7.677608e-02
## hlr_games_b4_corrected_3        0.1397300017 1.827817e+00 2.480056e-03
## hlr_games_b4_corrected_4        3.0748565719 1.996237e-02 3.541783e+00
## hlr_games_b4_corrected_5        1.3784484957 2.429861e-01 2.677735e-01
## hlr_games_b4_corrected_6        1.3992970719 8.546057e-01 2.671911e+00
## hlr_games_b4_corrected_7        1.4864685450 1.713213e+00 1.375893e+00
## hlr_dgames_b4_corrected_0       0.3277006475 1.378061e+00 8.457529e-02
## hlr_dgames_b4_corrected_1       0.2005541092 2.223271e-02 2.734153e-03
## hlr_dgames_b4_corrected_2       0.2934878365 1.831247e+00 4.592793e-02
## hlr_dgames_b4_corrected_3       0.4038954736 8.337843e-01 9.360500e-01
## hlr_dgames_b4_corrected_4       0.3576220319 1.840954e-02 4.546012e-01
## hlr_dgames_b4_corrected_5       2.3152363536 1.292559e-02 7.351065e+00
## hlr_dgames_b4_corrected_6       1.1003841217 4.514329e-01 3.091354e+00
## hlr_dgames_b4_corrected_7       1.7974416381 1.086485e+00 6.535051e-01
## hlr_ad_books_b4_corrected_0     0.4783236432 2.780136e+00 2.917584e-01
## hlr_ad_books_b4_corrected_1     0.7412520497 5.212543e-01 6.740778e-02
## hlr_ad_books_b4_corrected_2     0.5131769891 3.481446e-02 9.050593e-03
## hlr_ad_books_b4_corrected_3     0.0071350733 8.984989e-01 8.717731e-03
## hlr_ad_books_b4_corrected_4     0.0009156242 1.569501e+00 2.746131e-01
## hlr_ad_books_b4_corrected_5     0.2448775913 1.362221e+00 3.719496e-02
## hlr_ad_books_b4_corrected_6     0.4882195910 5.405354e-04 9.642926e-02
## hlr_ad_books_b4_corrected_7     5.9515010590 7.957606e-01 1.532965e-05
## hlr_ad_dbooks_b4_corrected_0    0.9107934308 2.477792e+00 2.202113e-01
## hlr_ad_dbooks_b4_corrected_1    0.0153522924 7.141621e-01 1.602398e-01
## hlr_ad_dbooks_b4_corrected_2    0.1020705195 4.980827e-01 4.855845e-01
## hlr_ad_dbooks_b4_corrected_3    0.0208000316 2.202352e+00 1.956672e-01
## hlr_ad_dbooks_b4_corrected_4    0.0512480866 2.587917e-01 1.853865e-02
## hlr_ad_dbooks_b4_corrected_5    0.4843662683 9.418511e-02 1.568908e-01
## hlr_ad_dbooks_b4_corrected_6    1.0879043444 2.925268e-01 1.092140e-01
## hlr_ad_dbooks_b4_corrected_7    4.8496739400 4.731012e-03 4.439054e+00
## hlr_ad_news_b4_corrected_0      0.3514105709 4.108623e-01 2.409853e-04
## hlr_ad_news_b4_corrected_1      0.5568072280 1.297151e+00 4.073566e-02
## hlr_ad_news_b4_corrected_2      0.3260482228 4.484525e-01 2.296219e-03
## hlr_ad_news_b4_corrected_3      0.0021330978 3.766243e-01 6.995973e-02
## hlr_ad_news_b4_corrected_5      0.3047235105 1.377286e-01 2.403348e-01
## hlr_ad_news_b4_corrected_6      0.0001711665 9.100786e-02 2.232276e-02
## hlr_ad_news_b4_corrected_7      1.1206933800 2.813605e-01 4.394202e-01
## hlr_books_since_corrected_0     0.2156373043 3.281812e+00 1.645707e-01
## hlr_books_since_corrected_1     0.7037860324 6.316499e-01 8.617702e-02
## hlr_books_since_corrected_2     0.3760554387 8.666550e-02 6.795517e-04
## hlr_books_since_corrected_3     0.0033744855 2.326296e+00 1.963924e-01
## hlr_books_since_corrected_4     0.0963675096 1.720160e+00 8.012487e-03
## hlr_books_since_corrected_5     1.7640165587 2.027202e-01 3.371621e+00
## hlr_books_since_corrected_6     0.6846147466 3.262826e-03 1.533557e-02
## hlr_books_since_corrected_7     4.6728840645 1.587694e+00 1.632672e+00
## hlr_dbooks_since_corrected_0    0.5368601302 1.738465e+00 1.406626e-01
## hlr_dbooks_since_corrected_1    0.0126064038 2.404907e-01 1.409422e-02
## hlr_dbooks_since_corrected_2    0.0036161623 2.068109e+00 3.721591e-02
## hlr_dbooks_since_corrected_3    0.0012849817 7.009120e-01 1.416354e-01
## hlr_dbooks_since_corrected_4    0.8107002942 1.223639e-01 6.174757e-01
## hlr_dbooks_since_corrected_5    2.6217421457 4.489900e-03 7.610925e+00
## hlr_dbooks_since_corrected_6    0.0102066217 4.866745e-02 1.982569e-01
## hlr_dbooks_since_corrected_7    3.5484889758 9.013372e-01 3.928266e+00
## hlr_games_since_corrected_0     0.3890937968 4.216333e+00 2.142691e-01
## hlr_games_since_corrected_1     0.4444927548 1.433721e-02 1.203964e-02
## hlr_games_since_corrected_2     0.0760109109 1.556075e+00 1.970339e-01
## hlr_games_since_corrected_3     0.0572340306 2.324169e+00 6.396283e-02
## hlr_games_since_corrected_4     3.0388046915 6.162899e-02 4.104348e+00
## hlr_games_since_corrected_5     0.3562497208 1.865947e-01 1.982558e-01
## hlr_games_since_corrected_7     4.0432112004 2.336309e+00 6.344090e+00
## hlr_dgames_since_corrected_0    0.2846781504 2.404630e+00 1.616848e-01
## hlr_dgames_since_corrected_1    0.2968368994 3.423538e-02 1.863456e-03
## hlr_dgames_since_corrected_2    0.3669822876 1.355321e+00 2.397703e-01
## hlr_dgames_since_corrected_3    0.1147583193 2.201902e+00 2.360406e-01
## hlr_dgames_since_corrected_4    0.0932717295 2.410744e-01 1.413461e-01
## hlr_dgames_since_corrected_5    0.5124077319 2.765273e-02 1.181765e+00
## hlr_dgames_since_corrected_6    2.3185171388 2.507568e-05 1.003237e+01
## hlr_dgames_since_corrected_7    4.3261766793 1.470031e+00 4.899762e+00
## hlr_ad_books_since_corrected_0  0.4619788547 4.051942e+00 3.271531e-01
## hlr_ad_books_since_corrected_1  0.6521914474 3.844956e-01 5.015002e-02
## hlr_ad_books_since_corrected_2  0.3585767747 8.331860e-02 3.607993e-02
## hlr_ad_books_since_corrected_3  0.0039063927 1.168984e+00 5.551681e-03
## hlr_ad_books_since_corrected_4  0.0038477349 1.623950e+00 2.015352e-01
## hlr_ad_books_since_corrected_5  0.4360941632 7.114075e-01 3.463652e-06
## hlr_ad_books_since_corrected_6  0.1856178274 5.372734e-02 1.509798e-01
## hlr_ad_books_since_corrected_7  5.3808615405 4.284139e-01 2.314764e-02
## hlr_ad_dbooks_since_corrected_0 0.9101085566 3.193325e+00 2.740356e-01
## hlr_ad_dbooks_since_corrected_1 0.0182891024 9.718242e-01 1.966298e-02
## hlr_ad_dbooks_since_corrected_2 0.0477712428 1.401992e+00 4.862647e-01
## hlr_ad_dbooks_since_corrected_3 0.0914752867 1.071632e+00 5.174077e-01
## hlr_ad_dbooks_since_corrected_4 0.0951525870 1.438181e-01 1.733044e-01
## hlr_ad_dbooks_since_corrected_5 0.6617770707 1.195869e-04 9.264090e-04
## hlr_ad_dbooks_since_corrected_6 1.1668882208 6.108962e-01 1.817272e+00
## hlr_ad_dbooks_since_corrected_7 4.7021251295 2.735042e-02 4.021967e+00
## hlr_ad_news_since_corrected_0   0.1886367971 5.017818e-01 2.983644e-02
## hlr_ad_news_since_corrected_1   0.2294397387 1.312193e+00 1.606227e-03
## hlr_ad_news_since_corrected_2   0.2237506855 6.046914e-01 3.159996e-02
## hlr_ad_news_since_corrected_3   0.0533537621 5.012422e-01 8.236082e-02
## hlr_ad_news_since_corrected_4   0.0026105882 4.667979e-02 6.007791e-03
## hlr_ad_news_since_corrected_5   1.3255955398 4.255546e-01 2.907919e+00
## hlr_ad_news_since_corrected_6   0.0001711665 9.100786e-02 2.232276e-02
## hlr_ad_news_since_corrected_7   0.2892095712 6.602054e-02 3.850184e-02
##                                       Dim 4        Dim 5
## hlr_books_b4_corrected_0        2.481588290 7.674069e-02
## hlr_books_b4_corrected_1        0.093320722 8.118090e-01
## hlr_books_b4_corrected_2        1.072536857 6.236468e-01
## hlr_books_b4_corrected_3        0.750487921 1.400976e-01
## hlr_books_b4_corrected_4        1.310798681 4.262066e-05
## hlr_books_b4_corrected_5        0.347464662 2.553827e-02
## hlr_books_b4_corrected_6        0.103367379 2.685365e-01
## hlr_books_b4_corrected_7        0.252080764 2.226806e-02
## hlr_dbooks_b4_corrected_0       0.303464924 2.275261e-01
## hlr_dbooks_b4_corrected_1       1.877349914 1.285893e-01
## hlr_dbooks_b4_corrected_2       1.286498097 3.842663e-01
## hlr_dbooks_b4_corrected_3       0.252131001 3.116115e-02
## hlr_dbooks_b4_corrected_4       0.022357793 3.800602e+00
## hlr_dbooks_b4_corrected_5       0.139113933 7.140432e-02
## hlr_dbooks_b4_corrected_6       0.139146840 1.029506e+01
## hlr_dbooks_b4_corrected_7       0.163283636 4.538147e-01
## hlr_games_b4_corrected_0        2.739442024 6.646897e-02
## hlr_games_b4_corrected_1        2.235500673 4.998609e-02
## hlr_games_b4_corrected_2        1.336887296 1.249311e-02
## hlr_games_b4_corrected_3        1.196904925 8.886703e-01
## hlr_games_b4_corrected_4        0.090971500 3.131474e-02
## hlr_games_b4_corrected_5        0.242201585 6.481658e+00
## hlr_games_b4_corrected_6        0.060083379 3.818172e+00
## hlr_games_b4_corrected_7        0.271734189 2.395620e+00
## hlr_dgames_b4_corrected_0       1.530497088 1.927562e-01
## hlr_dgames_b4_corrected_1       2.709425792 4.348124e-02
## hlr_dgames_b4_corrected_2       0.912065117 1.398822e-01
## hlr_dgames_b4_corrected_3       0.411952738 2.305569e+00
## hlr_dgames_b4_corrected_4       0.267019616 3.419630e-02
## hlr_dgames_b4_corrected_5       0.004500591 1.053998e+00
## hlr_dgames_b4_corrected_6       0.013726424 1.144962e+01
## hlr_dgames_b4_corrected_7       0.709784673 3.769377e+00
## hlr_ad_books_b4_corrected_0     2.533995042 1.029896e-01
## hlr_ad_books_b4_corrected_1     1.993169643 6.425695e-01
## hlr_ad_books_b4_corrected_2     0.614598785 4.735426e-01
## hlr_ad_books_b4_corrected_3     0.187860903 1.136807e-01
## hlr_ad_books_b4_corrected_4     2.428561823 1.826255e-02
## hlr_ad_books_b4_corrected_5     0.710034219 1.125623e-04
## hlr_ad_books_b4_corrected_6     0.863297219 6.468503e-01
## hlr_ad_books_b4_corrected_7     0.607354497 4.379409e-02
## hlr_ad_dbooks_b4_corrected_0    0.805505789 8.967893e-02
## hlr_ad_dbooks_b4_corrected_1    4.258320412 7.637882e-01
## hlr_ad_dbooks_b4_corrected_2    0.107110800 2.185389e-01
## hlr_ad_dbooks_b4_corrected_3    1.531742428 5.705290e-02
## hlr_ad_dbooks_b4_corrected_4    0.556638025 4.173867e-03
## hlr_ad_dbooks_b4_corrected_5    0.273354895 4.163303e-01
## hlr_ad_dbooks_b4_corrected_6    0.105557385 5.436803e-04
## hlr_ad_dbooks_b4_corrected_7    0.009607708 4.089647e-02
## hlr_ad_news_b4_corrected_0      0.338522224 4.584325e-02
## hlr_ad_news_b4_corrected_1      1.434724893 7.209320e-01
## hlr_ad_news_b4_corrected_2      0.027713173 1.016280e+00
## hlr_ad_news_b4_corrected_3      0.475512472 9.125087e-02
## hlr_ad_news_b4_corrected_5      0.076998185 2.281692e+00
## hlr_ad_news_b4_corrected_6      0.027122739 1.032841e-05
## hlr_ad_news_b4_corrected_7      0.326314193 7.110530e+00
## hlr_books_since_corrected_0     3.695935384 1.239263e-01
## hlr_books_since_corrected_1     0.718750237 5.851971e-01
## hlr_books_since_corrected_2     0.586765458 6.437776e-01
## hlr_books_since_corrected_3     0.377723245 7.788468e-02
## hlr_books_since_corrected_4     2.209986723 1.364868e-01
## hlr_books_since_corrected_5     0.154843445 1.240367e-01
## hlr_books_since_corrected_6     0.017445391 2.849043e-02
## hlr_books_since_corrected_7     0.363510777 4.535785e-02
## hlr_dbooks_since_corrected_0    0.352192341 2.237240e-01
## hlr_dbooks_since_corrected_1    2.398423238 1.392805e-01
## hlr_dbooks_since_corrected_2    1.010492494 1.654594e-01
## hlr_dbooks_since_corrected_3    1.210971582 1.574709e-02
## hlr_dbooks_since_corrected_4    0.310648911 7.936223e-01
## hlr_dbooks_since_corrected_5    0.085003454 1.707380e-01
## hlr_dbooks_since_corrected_6    0.139886937 2.362521e+00
## hlr_dbooks_since_corrected_7    0.001924120 2.092694e-03
## hlr_games_since_corrected_0     4.246450692 1.003514e-01
## hlr_games_since_corrected_1     3.271322706 1.737481e-04
## hlr_games_since_corrected_2     1.001463131 2.824998e-01
## hlr_games_since_corrected_3     1.589020511 6.497997e-01
## hlr_games_since_corrected_4     0.016907985 1.709582e-03
## hlr_games_since_corrected_5     0.114534404 1.079765e+00
## hlr_games_since_corrected_7     0.004168229 9.059154e-01
## hlr_dgames_since_corrected_0    1.769069703 1.957186e-01
## hlr_dgames_since_corrected_1    2.540626918 8.321666e-02
## hlr_dgames_since_corrected_2    0.477148516 1.161313e-01
## hlr_dgames_since_corrected_3    1.103262355 1.471211e-01
## hlr_dgames_since_corrected_4    0.489816173 1.024127e-01
## hlr_dgames_since_corrected_5    0.629939896 4.765804e-01
## hlr_dgames_since_corrected_6    0.078317664 2.016496e-01
## hlr_dgames_since_corrected_7    0.056934911 1.008619e+00
## hlr_ad_books_since_corrected_0  4.013321540 2.982735e-01
## hlr_ad_books_since_corrected_1  2.759648847 5.283098e-01
## hlr_ad_books_since_corrected_2  0.276073218 4.089289e-01
## hlr_ad_books_since_corrected_3  0.277746621 1.860286e-01
## hlr_ad_books_since_corrected_4  1.619500041 9.211953e-05
## hlr_ad_books_since_corrected_5  0.629413093 1.708344e+00
## hlr_ad_books_since_corrected_6  0.817544305 7.973213e-01
## hlr_ad_books_since_corrected_7  0.979557814 3.213746e-02
## hlr_ad_dbooks_since_corrected_0 0.879905183 1.502506e-01
## hlr_ad_dbooks_since_corrected_1 3.837937006 4.163464e-01
## hlr_ad_dbooks_since_corrected_2 0.285707704 8.897800e-03
## hlr_ad_dbooks_since_corrected_3 0.686363923 1.228446e+00
## hlr_ad_dbooks_since_corrected_4 1.263133604 6.841743e-02
## hlr_ad_dbooks_since_corrected_5 0.018468665 4.305972e-01
## hlr_ad_dbooks_since_corrected_6 0.203340933 2.799514e+00
## hlr_ad_dbooks_since_corrected_7 0.063019037 2.985973e-02
## hlr_ad_news_since_corrected_0   0.486942672 1.343321e-01
## hlr_ad_news_since_corrected_1   2.512113398 1.039017e+00
## hlr_ad_news_since_corrected_2   0.523687335 1.312607e+00
## hlr_ad_news_since_corrected_3   0.616363385 8.213940e-03
## hlr_ad_news_since_corrected_4   0.259049264 7.439957e-05
## hlr_ad_news_since_corrected_5   0.013993549 1.129319e+01
## hlr_ad_news_since_corrected_6   0.027122739 1.032841e-05
## hlr_ad_news_since_corrected_7   0.305252121 1.137076e+00

#Correlação entre variáveis e dimensões principais correlação entre as variáveis e as dimensões principais do MCA

fviz_mca_var(res.mca_2f, choice = "mca.cor", 
            repel = TRUE, # Avoid text overlapping (slow)
            ggtheme = theme_minimal())

head(round(var_2f$coord, 2), 4)
##                          Dim 1 Dim 2 Dim 3 Dim 4 Dim 5
## hlr_books_b4_corrected_0 -0.67 -1.56 -0.46  1.55 -0.25
## hlr_books_b4_corrected_1 -0.44 -0.45 -0.18 -0.11 -0.30
## hlr_books_b4_corrected_2 -0.24  0.17  0.04 -0.30  0.21
## hlr_books_b4_corrected_3 -0.09  0.82  0.24  0.41  0.16

para visualizar apenas categorias de variáveis:

fviz_mca_var(res.mca_2f, 
             repel = TRUE, # Avoid text overlapping (slow)
             ggtheme = theme_minimal())
## Warning: ggrepel: 92 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps

head(var_2f$cos2, 10)
##                                  Dim 1        Dim 2        Dim 3       Dim 4
## hlr_books_b4_corrected_0  0.0157456573 0.0859795860 0.0074801587 0.084715678
## hlr_books_b4_corrected_1  0.0683481871 0.0723336424 0.0109597168 0.004158983
## hlr_books_b4_corrected_2  0.0373758427 0.0180069711 0.0011659585 0.057996457
## hlr_books_b4_corrected_3  0.0013083819 0.1177174870 0.0097915554 0.029097959
## hlr_books_b4_corrected_4  0.0069687616 0.0212191778 0.0003000404 0.045281249
## hlr_books_b4_corrected_5  0.1355120832 0.0257945596 0.1344754080 0.011841703
## hlr_books_b4_corrected_6  0.0119016167 0.0009449022 0.0106982322 0.003453149
## hlr_books_b4_corrected_7  0.3235493366 0.0748253698 0.0509879071 0.008983549
## hlr_dbooks_b4_corrected_0 0.0718706932 0.1694324662 0.0063424005 0.022791098
## hlr_dbooks_b4_corrected_1 0.0006802522 0.0837994429 0.0027044482 0.090639279
##                                  Dim 5
## hlr_books_b4_corrected_0  2.268327e-03
## hlr_books_b4_corrected_1  3.132628e-02
## hlr_books_b4_corrected_2  2.919939e-02
## hlr_books_b4_corrected_3  4.703222e-03
## hlr_books_b4_corrected_4  1.274819e-06
## hlr_books_b4_corrected_5  7.535999e-04
## hlr_books_b4_corrected_6  7.767495e-03
## hlr_books_b4_corrected_7  6.871262e-04
## hlr_dbooks_b4_corrected_0 1.479564e-02
## hlr_dbooks_b4_corrected_1 5.375536e-03

Se uma categoria de variável é bem representada por duas dimensões, a soma do cos2 é próxima de um. Para alguns dos itens de linha, são necessárias mais de 2 dimensões para representar perfeitamente os dados.

!!! OS COSSENOS SAO MUITO BAIXOS!!

fviz_mca_var(res.mca_2f, col.var = "cos2",
             gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"), 
             repel = TRUE, # Avoid text overlapping
             ggtheme = theme_minimal())
## Warning: ggrepel: 97 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps

fviz_cos2(res.mca_2f, choice = "var", axes = 1:2)

head(round(var_2f$contrib,2), 49)
##                              Dim 1 Dim 2 Dim 3 Dim 4 Dim 5
## hlr_books_b4_corrected_0      0.25  1.85  0.18  2.48  0.08
## hlr_books_b4_corrected_1      0.83  1.19  0.20  0.09  0.81
## hlr_books_b4_corrected_2      0.37  0.25  0.02  1.07  0.62
## hlr_books_b4_corrected_3      0.02  2.23  0.21  0.75  0.14
## hlr_books_b4_corrected_4      0.11  0.45  0.01  1.31  0.00
## hlr_books_b4_corrected_5      2.15  0.56  3.23  0.35  0.03
## hlr_books_b4_corrected_6      0.19  0.02  0.26  0.10  0.27
## hlr_books_b4_corrected_7      4.90  1.54  1.17  0.25  0.02
## hlr_dbooks_b4_corrected_0     0.52  1.66  0.07  0.30  0.23
## hlr_dbooks_b4_corrected_1     0.01  1.28  0.05  1.88  0.13
## hlr_dbooks_b4_corrected_2     0.00  1.67  0.07  1.29  0.38
## hlr_dbooks_b4_corrected_3     0.00  0.55  0.11  0.25  0.03
## hlr_dbooks_b4_corrected_4     2.67  0.13  0.19  0.02  3.80
## hlr_dbooks_b4_corrected_5     1.64  0.01  6.26  0.14  0.07
## hlr_dbooks_b4_corrected_6     0.47  0.04  1.90  0.14 10.30
## hlr_dbooks_b4_corrected_7     1.76  0.21  0.49  0.16  0.45
## hlr_games_b4_corrected_0      0.46  2.97  0.23  2.74  0.07
## hlr_games_b4_corrected_1      0.43  0.01  0.00  2.24  0.05
## hlr_games_b4_corrected_2      0.06  1.97  0.08  1.34  0.01
## hlr_games_b4_corrected_3      0.14  1.83  0.00  1.20  0.89
## hlr_games_b4_corrected_4      3.07  0.02  3.54  0.09  0.03
## hlr_games_b4_corrected_5      1.38  0.24  0.27  0.24  6.48
## hlr_games_b4_corrected_6      1.40  0.85  2.67  0.06  3.82
## hlr_games_b4_corrected_7      1.49  1.71  1.38  0.27  2.40
## hlr_dgames_b4_corrected_0     0.33  1.38  0.08  1.53  0.19
## hlr_dgames_b4_corrected_1     0.20  0.02  0.00  2.71  0.04
## hlr_dgames_b4_corrected_2     0.29  1.83  0.05  0.91  0.14
## hlr_dgames_b4_corrected_3     0.40  0.83  0.94  0.41  2.31
## hlr_dgames_b4_corrected_4     0.36  0.02  0.45  0.27  0.03
## hlr_dgames_b4_corrected_5     2.32  0.01  7.35  0.00  1.05
## hlr_dgames_b4_corrected_6     1.10  0.45  3.09  0.01 11.45
## hlr_dgames_b4_corrected_7     1.80  1.09  0.65  0.71  3.77
## hlr_ad_books_b4_corrected_0   0.48  2.78  0.29  2.53  0.10
## hlr_ad_books_b4_corrected_1   0.74  0.52  0.07  1.99  0.64
## hlr_ad_books_b4_corrected_2   0.51  0.03  0.01  0.61  0.47
## hlr_ad_books_b4_corrected_3   0.01  0.90  0.01  0.19  0.11
## hlr_ad_books_b4_corrected_4   0.00  1.57  0.27  2.43  0.02
## hlr_ad_books_b4_corrected_5   0.24  1.36  0.04  0.71  0.00
## hlr_ad_books_b4_corrected_6   0.49  0.00  0.10  0.86  0.65
## hlr_ad_books_b4_corrected_7   5.95  0.80  0.00  0.61  0.04
## hlr_ad_dbooks_b4_corrected_0  0.91  2.48  0.22  0.81  0.09
## hlr_ad_dbooks_b4_corrected_1  0.02  0.71  0.16  4.26  0.76
## hlr_ad_dbooks_b4_corrected_2  0.10  0.50  0.49  0.11  0.22
## hlr_ad_dbooks_b4_corrected_3  0.02  2.20  0.20  1.53  0.06
## hlr_ad_dbooks_b4_corrected_4  0.05  0.26  0.02  0.56  0.00
## hlr_ad_dbooks_b4_corrected_5  0.48  0.09  0.16  0.27  0.42
## hlr_ad_dbooks_b4_corrected_6  1.09  0.29  0.11  0.11  0.00
## hlr_ad_dbooks_b4_corrected_7  4.85  0.00  4.44  0.01  0.04
## hlr_ad_news_b4_corrected_0    0.35  0.41  0.00  0.34  0.05

15 principais categorias de variáveis que contribuem para as dimensões:

# Contributions of rows to dimension 1
fviz_contrib(res.mca_2f, choice = "var", axes = 1, top = 15)

# Contributions of rows to dimension 2
fviz_contrib(res.mca_2f, choice = "var", axes = 2, top = 15)

fviz_contrib(res.mca_2f, choice = "var", axes = 1:2, top = 15)

fviz_mca_var(res.mca_2f, alpha.var="contrib",
             repel = TRUE,
             ggtheme = theme_minimal())
## Warning: ggrepel: 97 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps

##Gráfico de indivíduos Resultados

lista contendo as coordenadas, o cos2 e as contribuições dos indivíduos:

ind_2f <- get_mca_ind(res.mca_2f)
ind_2f
## Multiple Correspondence Analysis Results for individuals
##  ===================================================
##   Name       Description                       
## 1 "$coord"   "Coordinates for the individuals" 
## 2 "$cos2"    "Cos2 for the individuals"        
## 3 "$contrib" "contributions of the individuals"

colorir os indivíduos por seus valores de cos2:

fviz_mca_ind(res.mca_2f, col.ind = "cos2", 
             gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"),
             repel = TRUE, # Avoid text overlapping (slow if many points)
             ggtheme = theme_minimal())
## Warning: ggrepel: 565 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps

# Cos2 of individuals
fviz_cos2(res.mca_2f, choice = "ind", axes = 1:2, top = 20)

# Contribution of individuals to the dimensions
fviz_contrib(res.mca_2f, choice = "ind", axes = 1:2, top = 20)

PCA COMO NUMERICO

PRE-PANDEMIA

Com o pacote “psych” Como o p-valor e praticamente 0, a matrix de correlacao nao e diagonal, ou seja, as variaveis seao correlacionadas.

require(psych)

cortest.bartlett(db_bloco_2_pre)
## $chisq
## [1] 1300.314
## 
## $p.value
## [1] 2.07114e-262
## 
## $df
## [1] 21

The test measures sampling adequacy for each variable in the model and for the complete model. The statistic is a measure of the proportion of variance among variables that might be common variance. The lower the proportion, the more suited your data is to Factor Analysis.

KMO(db_bloco_2_pre)
## Kaiser-Meyer-Olkin factor adequacy
## Call: KMO(r = db_bloco_2_pre)
## Overall MSA =  0.74
## MSA for each item = 
##     hlr_books_b4_corrected    hlr_dbooks_b4_corrected 
##                       0.72                       0.78 
##     hlr_games_b4_corrected    hlr_dgames_b4_corrected 
##                       0.74                       0.70 
##  hlr_ad_books_b4_corrected hlr_ad_dbooks_b4_corrected 
##                       0.71                       0.78 
##   hlr_ad_news_b4_corrected 
##                       0.78
res.pca_2_pre <- PCA(db_bloco_2_pre)

res.pca_2_pre$eig
##        eigenvalue percentage of variance cumulative percentage of variance
## comp 1  3.0637980              43.768542                          43.76854
## comp 2  1.1025096              15.750137                          59.51868
## comp 3  1.0231730              14.616758                          74.13544
## comp 4  0.6716772               9.595388                          83.73082
## comp 5  0.4936866               7.052666                          90.78349
## comp 6  0.3378803               4.826861                          95.61035
## comp 7  0.3072754               4.389648                         100.00000
PCA_2_pre <- prcomp(db_bloco_2_pre, scale = TRUE)
print(PCA_2_pre)
## Standard deviations (1, .., p=7):
## [1] 1.7503708 1.0500046 1.0115202 0.8195591 0.7026283 0.5812747 0.5543243
## 
## Rotation (n x k) = (7 x 7):
##                                  PC1          PC2         PC3          PC4
## hlr_books_b4_corrected     0.4081098 -0.495317508  0.15711658 -0.004201734
## hlr_dbooks_b4_corrected    0.3434967  0.502962016  0.11198040  0.525031247
## hlr_games_b4_corrected     0.4238311 -0.008938619  0.41191753 -0.415496177
## hlr_dgames_b4_corrected    0.3947613  0.450321113  0.27466060 -0.266607744
## hlr_ad_books_b4_corrected  0.4054178 -0.518033687 -0.08985888  0.175057541
## hlr_ad_dbooks_b4_corrected 0.3904483  0.062689356 -0.42673665  0.418674934
## hlr_ad_news_b4_corrected   0.2513435  0.162886206 -0.72627921 -0.524093436
##                                   PC5         PC6         PC7
## hlr_books_b4_corrected      0.3247202 -0.19626025  0.64764368
## hlr_dbooks_b4_corrected     0.5507976 -0.10401590 -0.16323136
## hlr_games_b4_corrected     -0.1701321 -0.50235911 -0.44346877
## hlr_dgames_b4_corrected    -0.2548255  0.56818790  0.32723503
## hlr_ad_books_b4_corrected   0.0324191  0.54530863 -0.47973452
## hlr_ad_dbooks_b4_corrected -0.6247878 -0.27751253  0.13731084
## hlr_ad_news_b4_corrected    0.3254028 -0.03295046 -0.03415257
summary(PCA_2_pre)
## Importance of components:
##                           PC1    PC2    PC3     PC4     PC5     PC6    PC7
## Standard deviation     1.7504 1.0500 1.0115 0.81956 0.70263 0.58127 0.5543
## Proportion of Variance 0.4377 0.1575 0.1462 0.09595 0.07053 0.04827 0.0439
## Cumulative Proportion  0.4377 0.5952 0.7413 0.83731 0.90783 0.95610 1.0000
screeplot(PCA_2_pre, type = c("lines"), main = deparse(substitute(PCA)))

 biplot(princomp(db_bloco_2_pre, cor = T))

fviz_pca_ind(res.pca_2_pre,
             col.ind = "cos2", # Color by the quality of representation
             gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"),
             repel = TRUE     # Avoid text overlapping
             )
## Warning: ggrepel: 551 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps

fviz_pca_var(res.pca_2_pre,
             col.var = "contrib", # Color by contributions to the PC
             gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"),
             repel = TRUE     # Avoid text overlapping
             )

fviz_pca_biplot(res.pca_2_pre, repel = TRUE,
                col.var = "#2E9FDF", # Variables color
                col.ind = "#696969"  # Individuals color
                )
## Warning: ggrepel: 542 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps